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HippoVision Video Digitizer $139.95 

Creates digitized Degas and NEOchrome-compatible pic- 
ture files using any standard composite video input (e.g. 
color or b&w camera, VCR, TV, etc. . .). Fast software 
updates the ST's screen 10 times per second, while the 
hardware frame-grabber snaps pictures in 1/60 of a second. 
Animation mode allows automatic sequential frame 
digitization. Black and white high contrast mode or up to 
16 grey levels with color monitors. 320H X 250V resolution. 
Routine allows direct access to pixel data. NTSC, PAL, and 
SECAM compatible. Includes hardware, software, demos, 
and instructions. 




Hippo ST Sound Digitizer $139.95 

Digitally sample, edit, mix, and play high-quality sounds 
with your ST. Mouse-based editing of waveforms, volumes, 
echos, and sound sequences. Real-time oscilloscope. Voice 
recognition demo. Four polyphonic sounds, multi-track. 
Normal sampling rate of 22,000 samples per second allows 
frequencies of up to 11 Khz. Up to 40 seconds of sounds can 
be stored with 1 Meg of RAM. High-speed 8 bit analog- to- 
digital and digital-to-analog converters allow up to 400,000 
samples per second. Use any standard audio input. Connect 
output to guitar amp or home hi-fi for increased fidelity. 
Input and output level controls. Includes hardware, 
software, sound library, microphone, power supply cable, 
and instructions. 



Our other products: 

HippoWord Advanced word proces.sor with true fonts. $89.95 

HippoConcept Powerful multi-level idea processor. $89.95 

HippoSimple Powerful database. Sort, inerge, ten commands. $49.95 

HippoSpell Word statistics plus a 3(),0()0 word dictionary. $39.95 

HippoPixel Create new fonts or animation sequences. $39.95 

HippoFonts I Additional fonts for HippoWord. $39-95 

HippoDisk Itilities Edit RAM, track & sectors. Recover data. $49.95 

HippoRAMdisk Turn extra RAM into an ultra fast disk drive. $34.95 

HippoBackgaminon Animated color or B&W graphics. Robot players. $39.95 

Hippo Computer Almanac Understands English. 35.000 various facts. $34.95 

Hippo Jokes & Quotes Thousands of jokes, quotes, and puns. Not for children. $34.95 

HippoArt NEOchrome-compatible art files. Slide show program. $39.95 

HippoClean Disk cleaning kit includes disk, fluid, and instructions. $29.95 

Hippo EPROM burner Reads, verifies, edits, and burns most EPROMS. $139.95 

Hippo X-10 Powerhouse Control household 120V devices u.sing existing wiring. $139.95 

llncopyprotected and updated versions available. 

Dealer Inquiries Invited. See your local dealer or order direct from Hippopotamus. VISA, 
Mastercard, COD. and institutional purchase orders accepted. California residents add local .sales 
tax. Please include $3 for shipping. Price, availability, and specifications subject to change without 
notice. 
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ARE YOU LOOKING FOR 
A DRIVE... 



That is fast, quiet, reliable? 

That has a built-in printer interface? 

That holds 360 KBYTES of information? 

That is compatible with Atari® 400, 800, 600XL, 

800XL,1200XL and 130XE computers? 



7WEIV, TMfftf 
Wf "OWE". 




• Single or double density [software selectable]. 

• Single or double-sided [software selectable]. 

• Direct drive motor. 

• Printer interface built-in. 
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2500 South Fairview/Unit L 
Santa Ana. California 92704 



FREE "TOPDOS." 

130XE SUPPORT WITH: 

• Standard 64K RAM disk. 

• Expanded 78K RAM disk. 

• Special 90K buffer for one pass disk duplication 
with only one drive. 

WISE OENSITY 

• Automatic selection between single density, 
double density, and double-sided double density. 

AUTO RAM DISK DUTULIZATION FOR 
ATARI 130XE. 



Call (714) 549-2141 



*Atari Is a reg. trademark of Atari Corporation. 
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be reproduced in any form, without 
viTitten permission from the publisher. 
Many programs are copyrighted and 
not public domain. 

Due, however, to many requests 
from Atari club libraries and bulletin 
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LOG Computing available during the 
month printed on that issue's cover. 
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is to be returned, please send a self- 
addressed, stamped envelope. 



EDITORIAL 



I'm sorry to report that the Atari com- 
munity is divided. On one side there are 
the Atari 8-bit users: the 400, 800, 1200, 
600XL, 800XL and 130XE owners. On 
the other side are the 520ST and 1040ST 
owners. 

The 8-bit users tend to feel threatened 
by the 16-bit users. And the 16-bit own- 
ers can, at times, act a little stuffy to- 
ward the older Atari owners. . .when, in 
fact, most of them started with one of 
the original Atari computers. 

The response we've gotten from both 
sides indicates that 8-bit owners are the 
more fanatical of the two groups. I get 
the impression they consider themselves 
as "the underdogs." Instead of accepting 
STs as simply newer models to fill the 
higher-end gap Atari desperately needed 
to close, they see the ST as "the com- 
petitor" — a possible threat to the future 
of the 8-bit Atari. 

What's wrong with one company sell- 
ing two completely different machines? 
Where is it written that software com- 
panies can only write for one or the oth- 
er? And who says only one will survive 
the next ten years? 

I'm very disappointed at the attitudes 
on both sides. According to our sources, 
the 130XE and the 520ST have been sell- 
ing quite well over the past months, and 
both still appear to be strong sellers. 



I don't expect people to run out and 
buy the 520ST or 1040ST if the 130XE 
will fit their needs. Let's face it, $800 
to $1000 is a lot of money. 

But, please, let's not forget how im- 
portant comradery between Atari own- 
ers has been in the past. That comrad- 
ery, with the help of user groups, was 
part of the reason that Atari held its po- 
sition as a major force during the com- 
puter shakeout. Let's not alienate each 
other. 

On a similar subject, our editorials in 
issues 40 and 41 stated that our new ST- 
Log section would not take away from 
the number pages we devote to the 8-bit 
machines each month. We will insert 
additional pages for ST-Log. 

Even so, we received a great deal of 
mail from readers complaining about 
less coverage devoted to the older com- 
puters. I hope this will be the last time 
that we'll have to touch on the subject 
of "ANALOG Computing versus ST-Log." 

I think that readers who are worried 
should sit down and count the pages 
dedicated to 8-bit Ataris. Maybe then 
they'll believe us. 

As mentioned earlier, most ST own- 
ers were Atari 8-bit users . . . and some 
still are. We at ANALOG Computing feel 
it would be unfair to make them pur- 
chase two publications at this time. Per- 



haps, in the not-so-near future, there'll 
be a need for such a separation. 

ST owners should realize that first- 
time computer buyers deserve an oppor- 
tunity to consider the 130XE, if that's 
what would fit their needs. On the oth- 
er hand, 8-bit owners should see that 
buyers need choices, too — and need in- 
formation after they've brought the new 
machine home. It's only fair that we cov- 
er the new Atari line as thoroughly as 
we cover the 8-bits. 

I hope all Atari owners can see the 
disadvantages of an unfriendly separa- 
tion between 8- and 16-bit users. One 
large, united group can accomplish far 
more than can two small rivals. 




Michael Des Chenes 

Publisher 

ANALOG Computing 



PAGE 4 /JUNE 1986 



ANALOG COMPUTING 



Expert Back'-up for 
Atari Users. 



SPECIALIZING IN 
BACKUP HARDWARE 
& SOFTWARE 



TM 

THE 1050 DUPLICATOR: The most powerful diskdrive 
copy system ever developed for ttie ATARI. 



The only Copy system 
You will ever need. 
What will It do? 

^ 77ie main purpose of Ihe Duplicator It fo copy ditktl You will be 
able to copy just about any disk! The copies you make will run on 
any Atari drive. The Duplicator need not be present to run your 
backup copies. The Duplicator is fully automatic. You need 
only insert source and destination disks. Custom formats wili 
be read and in turn reproduced on the backup copy disk. 
Our device will reproduce any custom format or heavily 
copy guarded scheme, bod sectors, double sectors. 
19 through 24 sector format wiii present no problem 
to the Duplicator 

^Vou will still liave single density, density and 
one lialf, and double density. When you have a 
Dupiicator installed In a 1050 drive that drive will be 
turned Into true double density. You wiii have twice 
the disk storage. Your drive will be compatible with other 
double density drives as The Rana Indus. Percom, etc. 

HARDWARE POWER 

Fully Compatible with the XL & New XE Series 




H/fl/i speed read A write. Your disk drive wiii read and load 

dii of your software, saving wear and tear on your drive. The 

1050 drive now reads one sector at a time. This is slow and 

inefficient With the duplicator instaiied you wiii be able 

to read eighteen sectors in the time it takes standdrd, 

unenhanced drives to reod one. 

Included wittt every Duplicator will be user 

friendly disk software. A simple, menu driven 

program wiii aiiow you to copy aii of your 

software. A Duplicator enhanced drive will 

be d SMART drive. We plan to write many 

new and exciting programs that can only be 

run on an enhanced drive, eg. sending a 

copy-guarded disk over the phone. Since the 

drive is now fuiiy programmabie, future upgrades 

can be made available to you on disks, should the 

need arise. Ato further hardware changes wiii ever be 

needed. The Dupiicator comes with a fuii hardware and 



software guarantee. 



S3 50 for Sfllpping & Handling 
AM 7% outside U.S.A. 
N.Y State i^esiUents add 7^/i% Sales Tax 
'Dealer inqu/ries are welcome, call for quanflty price quote. 



EASY 5 MINUTE INSTALLATION 

NO HARM TO YOUR DRIVE OR INCOMPATIBILITY PROBLEMS CAN ARISE AS A RESULT OF TH 



AN ARISE AS A RESULT OF THE INSTALLAiTION OF OUR DUPLICATOR. 



520 ST Copy Program 

THE ST DUPLICATOR™ 

Our famous 1050 DUPLICATOR has been converted to service the 
ATARI™ 520 ST. It is a software only disc copy system. 

You can now back up heavily copy-guarded and protected discs. 
Presently, we can't find anything the ST DUPLICATOR will not copy. And 
if new forms of software protection should appear on the market, we will 
provide software upgrades. 

ST DUPLICATOR" 



INCLUDES USER 
FRIENDLY SOFTWARE 
AND INSTRUCTIONS 



DENSITY "DOUBLER " 

1050 

DOUBLE THE POWER... 

TRIPLE THE SPEED... 

Get TRUE double density, full compati- 
bility with any DOS. Now store twice 
as much data on each disk. Read and 
write up to 3X faster in single or double 
density (Whole Track Buffering). 
Includes ultra-speed software, simple 
plug-in PC board 
jvjo soldering or 
cutting required. 



$5995 

Plus $3.50 Shipping 
Add 7% Outside U.S.A. 



THE HACKER'S TREASURE CHEST On Disk 

1 8 Utility Programs on disk. Each program is specifically designed to aid you 
in backing-up your software collection. You will be able to duplicate disks, 
cartridges and cassettes. Any one program is worth the price of all 18. It 
has taken us over one year to put together this fine collection on the 
Hacker's Treasure Chest disk. Some of the programs you will receive are: 
Cartridge Copy, Bcotape Maker, Tape to Disk, SectorCopy, The 
Unprotector, Sector Disassembler, Bad Sector Finder, Modem 
Program... plus more. All of these programs plus 
1 more on this disk. You will also receive a menu 
that will run basic and binary flies just by typing the 
number of the program. Any file on any disk will load 
automatically from this menu. ALL FOR ONLY 



cior rinaer, Moaem 

$3495 

Plus $3.50 Shipping 
Add 7% outside U.S.A. 



$5995 



Plus $3.50 Shipping 
Add 7% pulside U.S.A. 



WRITE-RIGHT 

This device will allow you to write to 
side 2 of any disk. Install this box to 
your ATARI'" 1050 in 5 minutes. Just 
plug in one cable - no cutting or solder- 
ing required. Push a button and a LED 
will light, allowing you to write to a disk 
without notching out a hole in the disk. 
Easy plug-in instal- 
lation. Instructions 
included. Fully 
tested & assembled. 



ui a noie in the disk. 

$2995 

Plus $3.50 Sttlpping 
Add 7% outside U.S.A. 



CART CLONE™ 

COPY ANY ATARI™ CARTRIDGE 

A MUST FOR ALL ATARI™ USERS 
CART CLONE will backup and trans- 
fer any 8 or 16k cartridge to disk or 
tape. The contents of the cartridge will 
become a tile which you can transfer, 
rename or delete. They will execute 
from DOS. No need to run a special 
menu or program to run these files it 
goes in the left cartridge slot enabling it 
to work in all ATARI™ Home Computers 
including the XL 
series. You can get 
CART CLONE" 
with software for 



11™ Home Computers 

$5995 

Plus $3.50 Shipping 
Add 7% outside U.S.A. 




^'Constantly Working on New Products and Software." 

DUPLICATING 

TECHNOLOGIES inc. ^^^^ ^*^*> 333-5504. 5950 

Formerly Gardner Computing 

99 Jericho Tpka, Suite 302A Jericho, N,Y, 1 1 753 



^l^^oNLv (516) 333-5805. 5807. 5808 
oROKsoNiY (516) 333-5950 i ►« 



lEJnMS; We accepr /American Express, Visa, MasterCard and C.O.D. orders Foreign orders must tyein US dollars. All personal checks allow 14 days to clear. Most items shipped within 24 hours 
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READER 
COMMENT 



ANALOG'S tops. 

I am writing in praise of the way you 
answered my hopes for help in obtain- 
ing documentation on a Bit-3 full view 
80-column board for my Atari 800. Hav- 
ing bought it second-hand without doc- 
umentation, I wrote MicTobits twice to 
request a copy, with no reply on either 
inquiry. I tried locating a phone number 
to no avail. I had also tried two differ- 
ent Atari user groups for information. 

Two days after I wrote requesting in- 
formation, you answered my request. I 
received the information two days there- 
after. Two other magazine publishers 
have yet to respond in any form. 

This is the second time the ANALOG 
Computing staff has amazed me. First, 
two years ago, by publishing my Preset 
program (issue 21) and now by respond- 
ing so rapidly — and with your only copy 
of the documentation I required. You 
have once again won ray hearty thanks 
and another renewal. 

ANALOG Computing is tops in my 
book, recommended to all my Atari- 
owning friends. I only hope that others 
do not spoil your way of helping. Please 
keep up the excellent work. 

Thank you again. 

Richard J. Browne 

Canton Center, CT 

"Editorial" comments. 

Please keep that editorial page — it's 
the first thing I always read (and not be- 
cause it's first in physical location). 
Hearing from you makes ANALOG 
Computing much more personal. 

Congratulations on adding Clayton 
Walnum to your staff. Boy, can he write 
well (lots, too)! I'm personally looking 
forward to the next part of C-manship. 
Thanks to the clarity of his articles, I fi- 
nally understand those C listings. 



By the way. Bob Curtin's review of 
Kyan Pascal would have you believe no 
C compiler exists for 8-bitters. Well, for 
$35, you can get the best C compiler, hn- 
ker and text editor on two disks, with 
over twenty sample programs and docu- 
mentation. Called DVC/65, it's available 
directly from A.C.E. member Ralph E. 
Walden, 1821 Jefferson, Eugene, OR 
97402. It supports 130XE and is the one 
I'm going to try on my 800XL before I 
take the 520ST plunge. 

I'm afraid I have to disagree with Mr. 
Eisenberg's comments (issue 40's Reader 
Comment) on external interfacing of 
computers . . . People who buy compu- 
ters are high-tech toy buyers (like me) 
or have used a word processor, spread- 
sheet or database elsewhere. I had no 
practical application for my first 400 — 
but was it fun! 

My wife thinks a practical application 
for my computer would be a mechanical 
hand to come out and slap me when I 
think about adding more peripherals. 

Sincerely, 

Everett P. Rantanen 

Milwaukee, WI 

800 monitor jacic pinouts. 

I'm the owner of an Atari 800 and 
have decided to take the advice given ly 
Arthur Leyenberger in his Stocking Stuf- 
fers article (issue 37). I'm going to get 
a Commodore 1702 monitor. 

But here's the problem; I don't know 
what pins are what on the 800 monitor 
jack. I've searched all my magazines and 
the manual, and can only find out about 
the audio. Can you help? What are the 
pinouts for the monitor jack? 

Leighton W. Vary, Jr. 

Phoenix, AZ 

Figure 1 shows the pinouts for your 



computer. Figure 2 illustrates the assem- 
bly of the necessary cables. — Ed. 




4 NOT USED 
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Figure 2. — Phono jacks. 



A user on End User. 

After reading issue 39 of ANALOG 
Computing (February 1986), I felt the 
impetus required to write a letter to one 
of the anti-Atari publications that seems 
to disgrace magazine racks in increas- 
ing numbers lately. 

Unfortunately, it was comments in the 
End User section that prompted me. 
Your magazine is a fine and desperate- 
ly needed resource for Atari owners. I've 
become dependent on the reviews, tutor- 
ials and features offered monthly. I can't 
understand how a well-selling line of 
8-bit products could be deemed "dead." 

Such talk is damaging to both Atari 
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and the user. With 800XL and 130XE 
sales going strong, my imagination 
would require substantial expansion to 
believe such reports. 

Barry Williams 

Enterprise, AL 

It doesn't take a lot of imagination to 
realize that 1985 saw fewer new software 
releases than 1984. And 1984 saw /ewer 
than 1983. If you follow this simple lin- 
ear trend, 1986 should see even fewer. 

Why? According to the major software 
publishers, who look at sales of Apple, 
Commodore and Atari software, Atari 
sales account for much less than other 
brands. In a competitive industry, suc- 
cessful products are those in demand. 

Much as you or I or ANALOG Com- 
puting would like 8-bit computers to last 
forever, time does march on. Eventual- 
ly, they will probably be replaced. It's 
sad that, although 8-bit Ataris are still 
very capable, they're seen by the indus- 
try and the general public as outdated 
technology. 

However, you can bet your joystick 
that ANALOG Computing will continue 
to support all Atari computers. We'd be 
foolish not to continue to help the End 
User get the most out of his or her indi- 
vidual Atari adventure. — Ed. 

Weighty considerations. 

In the past, I have been extremely sa- 
tisfied with program quality in ANA- 
LOG Computing. You have provided me 
with much information and kept me "up 
to date" in the Atari world. 

Now, I've received issue 41 (April 
1986) and could not believe my eyes. 
Curt Cox's Paperweight program literally 
kicks 8-bit Atarians in the pants. Mr. 
Cox must have no respect for fellow 8-bit 
owners. For him to write a "self de- 
struct" program is simply uncalled for! 

What's more, I (and many others) own 
a modem and call many BBSs. Once a 
"smart" person uploads this horrid pro- 
gram, hundreds of unknowing users are 
subject to "killing their system." 

I cannot believe that ANALOG Com- 
puting would publish such a program. 
Cox's writing it astonishes me even 
more. 

I truly Jove my Atari 800 and feel that 
it has given me more than its money's 
worth. I demand an apology for this hor- 
rible program's publication. I truly hope 
that ANALOG Computing will continue 
its 8-bit support. 

Matt Birkner 

Peabody, MA 



I have been a subscriber to ANALOG 
Computing for a long time and I've never 
seen such a disgusting article as the one 
"entitled" Paperweight that appeared in 
issue 41! Now we know how you really 
feel about the loyal 8-bit users who've 
supported your magazine all these 
years. 

The article might have been funny if 
we all had $800 to plunk down on a new 
system (not to mention all the software 
we'd have to replace), but most of us 
don't. 

Sincerely, 

Ann Nace 

Narvon, PA 

Obviously, quite a few readers took 
Paperweight seriously. All we can say 
is "don't!" 

Paperweight was an imaginative, 
well-written program, included for your 
amusement. It does not destroy your 
equipment. We printed a note at the end 
of the article to indicate that it was pub- 
lished in our April issue for a good rea- 
son — to make you laugh. 

We tested it ourselves (on a machine 
deemed expendable — we knew less than 
you did) and found it very convincing. 
When the program's through, turn your 
computer OFF and then ON again. SYS- 
TEM RESET doesn't work. 

Trust us; we would never print some- 
thing that truly had Paperweight's ef- 
fect. We do apologize for any misinter- 
pretations, but we think our readers 
should realize we're as attached to our 
Ataris as they are to theirs. 

Those who think Paperweight was 
our way of exterminating 8-bit equip- 
ment merely show that the 8- versus 16- 
bit controversy has gone far enough. 
Whatever model you have, ANALOG 
Computing wants you to get the most 
you can from it, for as long as you can. 

So, if you can catch the trash man, get 
your computer back; it's still complete- 
ly operable. — Ed. 

The other side of the coin. 

As a new computer user, I greatly ap- 
preciate your decision to cover the new 
ST line. 

I readily admit that I was not one of 
those brave pioneers in the personal 
computer revolution. I did not go out 
and purchase an 8-bit Atari, Commo- 
dore, or Apple in those days of yester- 
year. 

The 520ST is my first computer — and 
I still have lots to learn. I am very glad 
that an excellent magazine like ANA- 



810 ON A PLATE 
DISK DRIVE $100. 



Printed Circuit Boards |PCB) w/parts 

800 Main . $10 16KRAM tlO BIO Analog $10 

BOOPower $5 10KOS $10 810 Power . $15 

CPU w/GTIA $10 810 side w/DS $40 1200 XL $35 

800XL $50 

IC $5. ea GTIA 800 AHTIC, 800 CPU, XL CPU, POKEY, 6520 

PIA 6507, 444, 6532, 6810, 810 ROM C 

IC $10. ea XI AHTIC. MMU, Xl/XE OS, BASIC C. 850 ROM B. 

1050 ROM, 1771 

Complete working 810 Less case $120.00 ($100.) 

With BSC Black Anodized Case $140.00 ($120.) 

With Case and Happy Upgrade $220.00 ($200 1 
Field Service Manuals 800/400, 800X1 or 810 . $25 ea 
For 1050, 10251027. 825, 850 or 1200XL $20 ea 

Diagnostic Cartridges Computer or Disk $25. ea 

|$| Prices in parenthesis do not include I/O Cable or 
Power Pak 



^^mpulervisions 749-1003 
3283 Kifer Rd.. Santa Clara. CA 95051 
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COMPLETE ATARI ST LINE 
CALL FOR PRODUCTS NOT LISTED 
520ST ROB OR MONO - CALL 

ST COLOR MONITOR - S349.95 

ST MONO MONITOR - 1179.95 

ST DOUBLE SIDED DRIVE - $229.95 
DISK DRIVES: 

INDUS CT - $194.95 

ATAR1 1050 - $139.95 

ASTRA THE ONE' - CALL 

ASTRA BIG D - CALL 



ST SOFTWARE: 

The Final Word 

PC/lntercocnm 

VIP Professional 

Personal Pascal 

ST Talk 

Mipposimple (database) 34.95 

Hippo Disk Utilities 34.95 

Universe 11 

Bralaccas 

Hex 

Degas 

Sundoo 

Crimson Crown 
Transylvania 



99.95 
79.95 
119.95 
47.95 
12.96 



48.95 
34.95 
27.95 
29.95 
2995 
24.95 
24.95 



Ultima II 39.95 



Perry Mason 
Fatirenheit 451 
9 Princes In Amber 
Borrowed Time 
Hacker 

Kings Quest II 
Galo 
Time Bandit 

For Mora STSottwara 
Ploau Call 



32.95 
32.95 
32.95 
34.95 
28.95 
32.95 
29.95 
39,95 



MODEMS: 

Atari 301 
MPP-1200 
UCALL (interlace) 



39.95 
199.95 
34.95 



PRINTER INTERFACES: 

MPP-MicroprinI 36.95 

MPP-1150 44.95 

UPRINTA16(16K buffer) 69.95 



PROGRAMMING AIDS: 

Basic XE 47.95 

Basic XL 37.95 

Action! or MAC 65 4795 
Tool Kits 

(XL. Action, 01 Mac65) 18.95 

Writer's Tool 39.95 
400/800/130XE 
SOFTWARE: 

Ultima IV 39.95 

Alternate Reality 29.95 

Never Ending Story 19.95 

Mind Pursuit 1995 

Cross Check 19.95 

221 Baker St. 19.95 

Goonies 1995 

Zorro 19.95 

Star Fleet One 34.95 

Universe 5995 

Return ot Heracles 29.95 

Adventure Master 29.95 

Silent Service 24.95 

Atan Writert 39.95 

Synfile oc Syncalc 29.95 

B/Graph 29.95 

Paper Clip 39.95 
Book of Adventure 

Games I or II 1795 

SPECIALS: 

Party Quiz (reg. $44) 19.95 

Enjoystick (reg. $35) 9.95 

Oils Well (cart) 9.95 
Bounty Bob Strikes Back 19.95 

Miner 2049er (can) . 9.95 

Missile Command 9.95 

Super Breakout 9.95 



-GUARANTEED LOWEST PRICES-CALL— 



COMPUTER GAMES -i- 

I BOX 6144 

ORANGE CA 92667 
(714) 639^189 
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fUr $39-95- 



For k^m" 
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available JJ"- 
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NPPLt' 



®j\ Series. 
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Mi G-6*" 



$49.95 



Destination: the 19th Century 



Slip any one of tliese game 
dlsl<s into your computer, and 
you'll \x transported bacl< in time 
to tlie 1800's, to relive tliree of 
tiie most exciting periods of 
that century. 

SIX-GUN SHOOTOUr will take 
you back to tiie wild, wild West, 
where you'll recreate the famous 
gun battles of such heroes/out- 
laws as Billy the Kid, the Earp 
brothers. Bat Masterson and Doc 



Holliday. Imagine all the best 
westerns you've ever read about 
or seen.... this action-packed 
game lets them come true! 
BAHLE OF ANTIETAM" brings 
back one fateful day, September 
17, 1862, when the Gray and the 
Blue clashed so fiercely that it 
came to be the bloodiest day of 
the Civil War. This grand-tactical 
simulation is so detailed, combat 
is resolved down to the individual 



BATTLE OF 
ANIIETAM 




soldier. Beginner, Intermediate and 
Advanced Games are provided so 
wargamers of all levels can try 
their hands at rewriting history. 

COIONIAL CONQUESr spans the 
late 1800's and early 1900's that 
marked the Age of Imperialism, 
This fun and easy-to-play game 
of global domination puts you in 
charge of one of six colonial 
powers - the U.S., Great Britain, 
Germany, France, Russia, and 




Japan. Your goal: To conquer the world any 
way you can — through subversion, 
espionage, or sheer military muscle. 

To pick up these tickets to the past, you'll 
need to see your time travel agency today. 
(It's cleverly disguised as your local software/ 
computer or game store.) 

If there are no convenient stores near you, 
VISA & M/C holders can order our time 
machines directly by calling 800-443-0100, 
ext. 335 (toll free). 

Please specify computer format and add 
$2.00 for shipping and handling. 

To order by mail, send your check to: 
STRATEGIC SIMULATIONS, INC., 1046 
N. Rengstorff Ave., Mountain View, GA 94043. 
(Califomia residents, add 7% sales tax.) 
All our games carry a "14-day satisfaction 
or your money back" guarantee. 
WRITE FOR A FREE COLOR CATAL06 OF ALL 
OUR GAMES. 



©1985 by 

Strategic 

Simulations, 

Inc. 

All rights 

reserved. 



C-64 (Commodore 64), ATARI, and APPLE are trademarks of Commodore Electronics, Ltd., Atari, Inc., and Apple Computer, Inc., respectively. 
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READER COMMENT continued 



LOG Computing is helping to fill the in- 
formation gap for those of us who are 
new owners of this rapidly-evolving 
technology. 

I have absolutely nothing against the 
other computers, but I happen to own the 
ST, as a result of being impressed by the 
remarkable price/power ratio. The wait 
was worth it to me, given my very mod- 
est financial status as compared to the 
big institutions which — up until now — 
have had a virtual monopoly on this lev- 
el of computer technology. 

Thanks for helping to keep me in- 
formed on what's available for the ST. 
You could hardly be expected to ignore 
the ST, though. I salute your decision to 
add pages and to continue to include 
coverage of products for the ST as well 
as for all Atari computerware. 

Sincerely, 

Sam Wells 

Los Alamitos, CA 

I've been subscribing to ANALOG 



Computing since 1981 and own every is- 
sue back to your premier issue. In my 
opinion, it's the best magazine going for 
your Atari needs. Now, it's the best for 
your ST needs, too! 

My family has three computers. We 
bought an 800 back in 1980 and added 
two disk drives, color monitor and print- 
er. My husband bought me a 520ST for 
Christmas, with color monitor and two 
double-sided drives. 

He (poor soul) has a 512 Macintosh, 
external drive and Imagewriter (A lot of 
friendly rivalry goes on here.) We recent- 
ly bought a 1200-baud modem that 
works for all three computers. 

I'm really pleased with the current 
new format. A lot of people would prob- 
ably just as soon have you split off the 
ST-Log section into its own separate 
magazine. I'm happy they're together, 
because we have both an 8- and a 16-bit 
Atari. 

We certainly haven't put "Old Faith- 



ful" out to pasture just because we got 
something newer and more powerful. 
My 800 is still used at least two hours 
a day. It's not unusual for all three to be 
going at once. 

Very sincerely yours, 

Kathy Scoville 

Henrietta, NY 14467 

Bravo.' We couldn't have said it better. 
New and old can Jive together, in peace. 

-Ed. 



Send your letters to: 

Reader Comment 

P.O. Box 23 
Worcester, MA 01603 



WHAT IS 
CHECKSUM DATA? 

Program listings in ANALOG Computing be- 
fore this issue were followed by a table of num- 
bers appearing as DATA statements, called 
"CHECKSUM DATA." These numbers were to be 
used in conjunction with D:CHECK and C: 
CHECK (which appeared in ANALOG Comput- 
ing issue 16 and the ANALOG Compendium) or 
with Unicheck (from issue 24, updated in issues 
31 and 39). 

D:CHECK and C:CHECK (written by Istvan Mo- 
hos and Tom Hudson) and Unicheck (by Tom 
Hudson) were designed to find and correct typ- 
ing errors when readers entered programs from 
the magazine. For those readers who would like 
copies of these articles, you may send for back 
issue 16, 24, 31 or 39 ($4.00 each) or the ANA- 
LOG Compendium ($14.95 plus $2.00 shipping 
and handling) from: 

ANALOG Computing 

P.O. Box 625 
Holmes, PA 19045 




1MEGRAM 
F.,8-BirATARb? 



scunE 

1058-A Marigold Court 
Sunnyvale, CA 94086 
408-246-8325 

NEWbyJxL... 
Axlon compatible 
RAMboards for Atari 
800s 



NEWTOP DOS 1.5 PLUS 

Especially great with Large RAMBoard Ataris 
(and all other Ataris!) 
•All the features of TOP DOS 1.5...Plus 
•Allows multiple RAM disks, SD or DD 
•Accesses ATARI DOS 2.5 files 

• Supports other RAM boards 

• New sector no. display, tone control 
and more! 



(XL & XE products also ana more! „ . *oq qc 

available. Send for info.) Only!Wa.3!) 

256K enough for 2 SD RAM 
Disks with RAM to spare 
$149 



LIMITED OFFER $20 off TOP DOS 1.5 P/us wfien 
ordered witti a JxL RAMboard 



512K holds 2 DD RAM disks 
and more $199 

1 MEG for those who need 
the MOST $349 

♦ All prices exchange for 
functional (with ctiips) 16K 
RAMboard witti gold 
connectors.. ..ottienwise add 
$20 

••To free slot 3 for 80 
column BD compatibility also 
include(A)a32KBDand 
$10or(B)a16KBDand$30 
for modification 

Prices are subject to ctiange wittiout notice. 
Direct orders add stiipping ($2.50 software, 
$4.50 tiardware). CA orxters add 7% saies 
tax. Allow 4 to 8 weet<s tor delivery. 



And don't forget...TOP DOS 1.5 

•ATARI D0S.2 compatible 

• More powerful, more friendly than any other 
DOS 

• Handles 1 RAMDisk, AXLON, MOSAIC 
orXE 

•Andstillonly $29.95 



And now, for those who qualify and need up to 

16 Megabyte disk capacity with sub directories 

and sector read, write & compare, file compare 

and MORE! 

We proudly announce the awesome 

TOP DOS PROFESSIONAL 

Available in limited quantities. Write for info. 

St986 ECLIPSE. TOP DOS 1 5, TOP DOS 1,5 Plus, TOP DOS Prolessional are 
trademaitts of ECLIPSE JxL is a trademark of JkL Lat)s, ATARI & AXLON are 
registered trademaitts of Atari Corp & Axlon, Inc, respectively. 
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NEW PRODUCTS 



MONDAY MORNING MANAGER 

This 1986 version of Monday Morning Man- 
ager includes 64 major league playoff teams, 
from 1905 through 1985, In the new MMM, 
any major league team may play against any 
other, and each of the more than 1500 players 
will perform as they did for the real thing. 

The results of each play, in every game, are 



based on actual statistics. Accuracy is claimed 
to be within 1% in over 4000 test games. 

Monday Morning Manager lists for $39.95 
for the Atari 8-bit line, and costs $50.00 for 
the 520ST. TK Computer Products, P.O. Box 
9617, Dovraers Grove, IL 60515 — (800) 422- 

4912. CIRCLE »162 ON HEADER SERVICE CARD 



FIX YOUR ATARI! 

Sams Computerfacts are a new series of service booklets for personal computers. Included 
in the line are fix-it manuals for the Atari 400, 800 and 800XL. Coming soon: the same kind 
of books for the 810 disk drive, 1025 printer, 130XE and the 520ST. 




In each version of Computerfacts, you'll find standard-notation schematics created with Com- 
puter Aided Design (CAD), preliminary service checks, troubleshooting tips, replacement parts 
lists, semiconductor cross-references and reproductions of actual waveform photos. Sams also 
publishes the Photofacts series, covering over 400 books on a wide range of electronic products. 

For more information, contact Howard W. Sams & Co., 4300 W. 62nd Street, Indianapolis, 
IN 46268 — (317) 298-5400. circle #i63 on reader service card 



WELCOME TO THE CITY OF FOOBLITZKY 

Infocom's new multi-player strategy game 
is described as part Clue and part Master- 
mind. In the city of Fooblitzky, you're a dog, 
wandering the crowded streets and busy 
shops, trying to deduce and obtain the four 
objects necessary to win. This will depend on 
how well you use funds, keep records and out- 
wit your opponents. 



The animated graphics are a first for Info- 
com. The typical Infocom packaging has four 
workboards, two sets of rules and four mar- 
kers. The 48K game uses joystick or keyboard. 

Fooblitzky retails for $39.95, from Infocom, 
Inc., 125 CambridgePark Drive, Cambridge, 
MA 02140 — (617) 492-6000. 
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OTHER NEWS 

Atari Fun and Games Is a book for anyone 
who's in the market for some new and differ- 
ent games. 

More than twenty games run on all the 
8-bits, and include a wide range of logic, ac- 
tion and graphic entertainment. Documenta- 
tion covers machine language calls, use of 
PEEKs and POKEs, and much more. 

Fun and Games has 294 pages and 57 il- 
lustrations. It sells for $10.95 (in paperback), 
$16.95 (hardbound), or $24.95 (for book and 
disk). Contact: TAB Books, Inc., Blue Ridge 
Summit, PA 17214 — (717) 794-2191. 
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Okidata is offering a $15 cash rebate with 
the purchase of their Okimate 10 color print- 
er. This offer runs through June 20, 1986. 

Okimate 10 has a suggested retail price of 
$208. Contact: Okidata, 532 Fellowship Road, 
Mount Laurel, NJ 08054 — (609) 235-2600. 
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The latest offerings from Digital Devices 
are their A16 and A64 U-Prints. These prod- 
ucts allow standard Centronics-type printers 
to be connected to the Atari. 

The A16 and A64 include a 16K or 64K 
buffer, respectively. These new units also fea- 
ture a RESET button, for clearing out mem- 
ory, and an extra Atari I/O port. 

The A16 retails for $99.95, and the A64 for 
$119.95. For information: Digital Devices Cor- 
poration, 430 Tenth Street, Suite N205, At- 
lanta, GA 30318 — (404) 872-4430. 
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OUR APOLOGIES 

Last month (issue 42), ANALOG Comput- 
ing published a description of the Super 3D 
Plotter II in our ST News section of the ST- 
Log (issue 2) magazine. 

It should be noted that this program is for 
8-bit machines, not the ST. Our apologies to 
our readers and to Elfin Magic. 
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Home 
Inventory 

Keep track of everything! 



by Jan Iverson 



Atari uses memory location 764 to hold the last 
keystroke pressed. If we peek at that location, we can 
perform a variety of functions within a program. 

Holding down the CTRL key and the arrow keys 
causes the cursor to move in various directions on 
the screen. But we can peek at location 764 and, by 
knowing the decimal equivalent of the arrow keys, 
we can move the cursor (or another item we select) 
to any location on-screen. I've chosen not to have the 
CTRL key pressed at the same time. This frees up 
your left hand and allows some freedom, since you 
don't have to remember to press the CTRL key. 

The following program uses memory location 764 
to test for the arrow keys pressed. 

I use Home Inventory for various applications. I 
have one disk with nothing but computer-related 
items. Another contains my record collection, and 
a third disk contains the household inventory. On this 
disk, I have one line entered for the total computer- 
related items and another for my record collection. 

The program can be streamlined to suit your own 
needs. Through careful reprogramming, you may 
adapt this for any application. 

Lines 80 and 4870 contain the dimension of the 
total length of the three fields (51x200] for the sort 
step. If you add any fields, you must change this di- 
mension length, also. Be aware that there's a memory 
limitation for sorting. 



There's an excellent utility program. Multicolor 
Screen Generator, by Richard J. Kalagher in issue 12 
(July-August 1983) of ANALOG Computing. I used 
this to develop the custom screen for Home Invento- 
ry. Each time you boot the program up, there'll be 
a short delay while the screen is poked into page 6. 
There will be no delay thereafter for the other op- 
tions selected, as long as you don't exit the program. 

The colored boxes at the bottom of the screen will 
change with each option. The memory locations for 
the colors are in 1712 through 1733. By poking the 
corresponding colors (4 for grey, 144 for blue, 80 for 
lavender and 64 for red) and putting time delays in 
between, the colors seem to flow downward. 
Entering and using the program. 

Type in Listing 1 and save a backup copy for safety. 

The main menu has four options: add, change, 
print and sort. Use the arrow keys (without press- 
ing CTRL) to select the option. (You'll notice that you 
may press ESC to exit the program.) 

Due to the need to protect the integrity of the data 
file, the steps must be followed in each of the op- 
tions. In most cases, you can exit by pressing ESC, 
or by using the arrow keys, paging over to the menu 
option and pressing START. 

You'll be sent back to the main menu. From there, 
you may go to another option. This will insure that 
the file has been updated and closed properly. 
Adding entries. 

The screen has an edit mask to limit the amoimt 



ANALOG COMPUTING 



JUNE 1986 /PAGE 11 






IHIil Home Inventory cominued 



of characters for each line. The description is Hmit- 
ed to twenty characters; the date is set up to input 
the year first, the month and the day last. This is to 
allow proper sorting. 

When the date is printed out, though, it will be 
displayed as month, day and year. The date is limit- 
ed to six numbers, (i.e., 840901] and to numeric in- 
put only [no slashes or dashes — the print routines 
will put these items in) . The ID is limited to fifteen 
characters, and the amount is limited to ten. The pro- 
gram will not allow you to enter more than the limit. 

Home Inventory's program forces you to enter some 
data on each line. If you press RETURN without en- 
tering data, the buzzer will sound, the screen will 
change to red, and you'll be returned to the same line. 

After you enter the cost and press RETURN, you'll 
be given the opportunity to "continue," "change" or 
"end." 

If you press START while the inverse video is on 
the word CONTINUE, the screen will clear and you'll 
be allowed to type in more additions. If you use the 
arrow key to page over to the "change" selection and 
press START, you'll be given the chance to change 
any of the items, as explained in the "Changing En- 
tries" section below. 

If you want to end the "adding" section, page over 
to the "end" statement and press START. The entries 
will be updated on the disk, and you'll be sent back 
to the main menu. 

Changing entries. 

Here's where the arrow keys come in handy. Enter 
the complete description, or, if you want to step 
through the file, enter an * and press RETURN. 

You may call up another entry by pressing SELECT. 
Use the right and left arrow keys to select change, 
delete or menu, then press START. When a change 
is made, you're allowed to page up and down the 
screen by using the arrow keys. When the item is cho- 
sen, press START and make the change. 

You may make as many changes as you wish. If 
you wish to select another item from your file, press 
SELECT and you'll be allowed to change, delete or 
go to the menu for that item, also. 

Make as many of these changes as you need. If you 
select delete and wish to continue on, press SELECT, 
and that item will be deleted — but the next item on 
the file will be shown on-screen (if you selected the 
* option). Using this method, you can step through 
the complete file. Press ESC when finished in the 
change section. 

Printing the entries. 

This option allows either a screen print or a hard 



copy. Use the arrow keys to make the selection. The 
screen size is limited, so the ID number will not be 
printed. The hard copy will print the entire record. 
This copy will have a heading and page numbering, 
and it will divide into pages at the end. A total dol- 
lar amount will also print. 

Sorting the records. 

If this item is selected from the main menu , the 
screen will change and the number of records read 
will be displayed. You'll be given the opportimity to 
select which field to sort on. Use the arrow keys to 
page to the selection, then press START. 

The sort will begin and will give you an updated 
count of the number of members in the array while 
sorting. The total will equal the number of records 
read. This will verify that no records have been 
dropped. 

I have a number of purchased database programs, 
but I've fovmd Home Inventory a much quicker and 
handier way to store my inventory. H 

Jan Iverson is an applications programmer with 
Chevron Corp. He's been working with computers for 
eighteen years and is program chairman for his lo- 
cal user's group (DACE). 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



Listing 1. 
BASIC listing. 



HOME INUENTORY 
Jan Iwerson 1984 



RN 18 REN 
QA 28 REN 
BA 38 REN 
VO 32 K8=e:Kl=l:K2=2:K3=3:K4=4:KS=S:K6=6: 

K7r7:K8=8:K9=9:K18=18:K12=12:K13=13:Kl 

4=14:K15=15:K16=16:K17=17:K18=18 
KD 34 K19=19:K2e=28:K21=21:K22=22;K23=23: 

K28=28 : IC29=29 ; K3e=3e : K31=31 ; K32=32 : K33 

=33 : K155=155 : K19S=195 : K255=25S 
OS 36 K7e9=709:K7ie=718:K752=752:K764=764 

:K53279=53279:K53774=53774:K64=64 
LA 48 DIN DESC$CK20}.DATE$fK6).C05TtK18], 

FILElS IK15J , FILE2S tKlSJ , COSTS (KIBJ , ANT 

$fK18} 
OC 58 DIN DES$CK28),0T$(K6),IDENTSCK15},C 

STStKlOJ jCHiCKlJiPAPS C51J 
ZU 68 PAD$="P 



ZZZZZZZZZZ2ZZZZZZZZZZZ2ZZZZZZ 

zzzzzzzzzzzz 



FR 78 DIN DS(K2e}, FOUNDS CK1),ID$CK15J, AS f 

AE 88 DIN ALL$ (18200) 

SP 98 DIN H0LD$(51),REC$(51) 

AO 130 OPEN ttK4,K4,K8,"K:" 

RH 140 FILEl$="Dl:INV.DAT":FILE2$="Dl;INV 

.TNP" 
SD 150 POKE K7ie,K0:P0KE K752,K1:G0SUB 57 

18 
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FH 160 GRAPHICS K17:P0KE 756, 226: POKE 708 
,K0:P0KE K16,K64:P0KE K53774,K64 

UX 170 LN0=K0:PGN0=K1:PGRE=60:CH$="N" 

HQ 180 Hl=Ke:H2=Ke:Xl=K0 

RY 190 X=K2:V=K3:T0T=K0;AA=K0:F0UND$="N": 
AGAIN=Ke : D$ CI , 1) ="«" 

TH 200 POSITION K3,K1:? ttK6;"hOHe invento 
r»" 

LC 210 POSITION K3,K2:? ttlfft!" 

11 

QA ??0 POSITION K8,K6:? ttK6;"L 

00 230 POSITION K8,K9:? »K6;"E 

LN 240 POSITION K8,K12:? ttK6;- 

CZ 250 POSITION K8,K15:? MKO ; ■ ^,^.„_. 

JR 260 POSITION K2,K18:? ttK6;"usinD □ key 

s to select option" 

XJ 2 70 P OSITION K2 .K20! ? ttK6 i ■■ t33giH yUddU 

GJ 280 POSITION K2,K22:? ttK6;"press 033 t 

o end" 
PU 290 POSITION K6,K6:? nK6;"D" 
JT 300 POKE K764.K155 
HV 310 IF PEEKCK764I=K14 THEN POSITION K6 

,K6:? t}K6;" ":GOTO 520 
QX 320 IF PEEKCK764)=K15 THEN 360 
FP 330 IF PEEKCK53279)=K6 THEN 600 
HN 340 IF PEEKfK764J=K28 THEN 4570 
MX 350 GOTO 310 
KV 360 POKE K764,K255 
NU 370 POSITION K6,K6:? ttK6;" " 
RV 380 POSITION K6,K9:? ttK6;"B" 
OH 390 IF PEEKCK764)=K15 THEN 440 
AS 400 IF PEEKCK764I=K14 THEN POSITION K6 

,K9:? IIK6;" ":GOTO 290 
RO 410 IF PEEKfK53279)=K6 THEN 1450 
HK 420 IF PEEKfK764}=K28 THEN 4570 
QE 430 GOTO 390 
KS 440 POKE K764,K255 
PT 450 POSITION Ke,K9:? ttK6;" " 
TX 460 POSITION K6,K12:? ttK6;"Q" 
PA 470 IF PEEKCK764}=K15 THEN 520 
AP 480 IF PEEK(K764}=K14 THEN POSITION K6 

,K12:? ttK6;" ":G0TO 360 
SG 490 IF PEEK(K53279}=K6 THEN 1270 
HH 500 IF PEEK(K764)=K28 THEN 4570 
PP 510 GOTO 470 
KP 520 POKE K764.K255 
MY 530 POSITION K6,K12:? ttK6;" " 
VZ 540 POSITION K6,K15:? ttK6;"Q" 
CX 550 IF PEEKCK764I=K14 THEN POSITION K6 

,K15;? ttK6;" ":G0T0 440 
KU 560 IF PEEKCK764I=K15 THEN POSITION K6 

,K15!? ltK6;" "!GOTO 298 
BF 570 IF PEEKCK53279I=K6 THEN 4860 
HX 580 IF PEEKCK764}=K28 THEN 4570 
OX 590 GOTO 538 
VO 600 GRAPHICS K8:P0KE K710,K4:P0KE K709 

,K255:P0KE K16,K64:P0KE K53774,K64 :P0K 

E K7S2.K1 
JV 610 POSITION K13,K19:? "Reading File" 
YH 620 GOSUB 3888 
NO 630 GOSUB 5710; GOSUB 5690: GOSUB 2848:6 

OSUB 3388: GOSUB 3368: GOSUB 3440 
JH 640 GOSUB 3840: GOSUB 3 560; GOSUB 34 98 
LT 650 POSITION K2,K6:? " l>13JJiIiJHffiIiII " 
NY 660 X=K15:Y=K6: GOSUB 2850 
OR 670 IF LENfDES$)<K2e THEN DESSfLENfDES 

$J*K1>=" ":G0T0 670 
BJ 680 IF DE5S=" " THE 

N GOSUB 2730: GOTO 650 
ZM 690 DESC$=DESl:DESStK20]="r':DES$(K2J= 

DES$:DESS=" " 
IV 700 POSITION K2. K6:? "DescriP tion:";PO 

SITION K2,K9:? " ItFICTVyijUIJiill " 
SH 710 X=K16:Y=K9: GOSUB 2970 
TD 720 IF LENCDT$)<K6 THEN DT$fLENCDT$]+K 

1J=" ":G0T0 720 
RO 730 IF DTS=" " THEN GOSUB 2730:60 

TO 700 
IZ 740 DATES=DTS:DT5CK6J="t":DTSCK2J=DTS! 

DTS=" " 
JR 750 POSITION K2 . K9 : ? "Date tYY MMDD? ! " : P 

OSITION K2.K12:^ ">f ■/UlllMJi" 



KZ 760 X=K13:Y=K12: GOSUB 3090 

JP 770 IF LENfIDENT$)<K15 THEN IDENT$ILEN 

aDENT$)*KlJ=" ":GOTO 770 
FC 780 IF IDENTS=" " THEN G 

OSUB 2730: GOTO 750 
OX 790 ID$=IDENTS:IDENTSCK15)="r':II>ENT$( 

K2J=IDENT$:IDEHTS=" " 
OT 880 POSITION K2. K12;? "Id NUHber:":POS 

ITION K2,K15:? "QESOE" 
FM 810 X=Kie:Y=K15: GOSUB 3210 
ZI 820 IF LENtCSTl)<K10 THEN CSTfCLENCCST 

S>*K1J=" ":G0T0 828 
EH 838 IF C5T«=" " THEN GOSUB 27 

30: GOTO 868 
UO 840 C0STS=CST$:C0ST=VALCC0STS} :CSTSCK1 

0) ="♦" : CSTS CK21 =CSTS : CSTS=" " 
IG 850 POSITION K2,K15;? "Cost $" 
OX 860 GOSUB 3560: POSITION K6,K19:? "Use 

";CHR$C27J;"* ";CHR$C27>;"4 keys, pres 

S <START>" 
OY 870 POSITION K4,K21:? "i r"! POSIT 

ION K17 K21:^ iii^_____ii 
JV 880 P0siTION'K4,K22:? " Wirt^iMHJ CH 

ANGE END" 

KQ 890 POKE K764,K155 
ST 900 POSITION K4,K21:? "i r" 
VT 910 POSITION K17.K22;? ''CHANGE" 
PT 920 POSITION K4,K22:? " TiMIiilMTU " 
SI 930 IF PEEKfK764l=K7 THEN 970 
CE 940 IF PEEKCK764)=K6 THEN POSITION K4, 

K21;? " ": POSITION K4,K22:? "CO 

NTINUE":GOTO 1050 
CR 950 IF PEEKCK53279)=K6 THEN POKE K764, 

K155:G0T0 1130 
OJ 960 GOTO 930 
KN 970 POKE K764,K155 
FV 980 POSITION K4,K2l:? " ": POSIT 

ION K17,K21:? "1 r" 
ZF 990 POSITION K4,K22:? "CO NTINUE " 
EH 1000 POSITION K17,K22:? "HIBUeII" 
AI 1010 IF PEEKfK764i=K6 THEN POSITION Kl 

7,K21:? "— — — ":GOTO 890 
BA 1820 IF PEEKCK7e4)=K7 THEN 1058 
QA 1030 IF PEEKfK53279J=K6 THEN GOSUB 278 

0: GOSUB 3560: GOSUB 3600: GOTO 2070 
NN 1040 GOTO 1010 
ZJ 1050 POKE K764,K155 
KG 1060 POSITION K17,K21:? ": POSIT 

ION K32,K21:? "1 r" 
VG 1878 POSITION K17,K22:? "CHANGE" 
SL 1080 POSITION K32,K22:? "(1113" 
KC 1098 IF PEEK(K764i=K6 THEN POSITION K3 

2,K22:? "END": POSITION K32,K21:? ".^• 

:GOTO 970 
NF 1108 IF PEEKCK764)=K7 THEN POSITION K3 

2,K22:? "END": POSITION K32,K21:? " " 

:GOTO 890 
MZ 1110 IF PEEKCK53279)=K6 THEN GOSUB 122 

O: GOSUB 3800: GOTO 1168 
RJ 1128 GOTO 1090 

AF 1138 GOSUB 3800: GOSUB 3848:6010 640 
FI 1140 IF PEEKCK764)=K28 THEN GOSUB 3880 

:GOTO 1160 
PE use GOTO 1130 
UH 1160 DESCS="ENDOFFILE ":DATE 

l="XXXXXX" : ID$="XXXXXXXXXXXXXXX" : COST= 


UV 1170 PRINT ttK2;DESC$: PRINT ttK2;DATES:P 

RINT nK2;IDS:PRINT ttK2;C0ST 
TN 1188 CLOSE ttKl: CLOSE ttK2 
BA 1190 XIO 33,ttKl,K0,K0,FILElS 
KQ 1200 XIO 32,ttKl,K0,K0,"Dl:INV.TMP,INV. 

DAT" 
PT 1210 GOTO 160 
EV 1228 GRAPHICS K17 

QP 1238 DSC1,1)=" " 

ZY 1240 POSITION K2,K10:? ttK6;"|!EIii£QEB 



J5 1250 POSITION K2,K12:? ttK6;"I3IXEaC]iH 



AV 1268 RETURN 

AF 1278 GRAPHICS KO:POKE K710,K4:P0KE K75 
2,Kl:P0KE K709.K255:P0KE K16,K64:P0KE 



ANALOG COMPUTING 



JUNE 1986 / PAGE 13 






W\ Home Inventory continued 



K53774,K64 
BL 1286 G05UB 4238 
AY 1296 CLOSE UKl 
CI 1306 TRAP 32767: TRAP 4586 
AE 1316 OPEN ttKl.K4,Ke.FILEl| 
KI 1326 INPUT ttKi,DESC5,DATEl,I0$,C0ST 
ED 1336 IF DATE$="XX]{HXX" THEN 1468 
UK 1348 GOSUB 4118:G0SUB 3878 
TC 1358 POSITION K8,Y 
ST 1368 ? DESCS;" •';I>ATES CK3,K4> ;'V";DATE 

S tK5, K6) ; "/"; DATES f Kl, K2J ; " ";COSTS 
UM 1376 Y=Y*Kl:TOT=TOT*COST 
UL 1380 IF Y=K18 THEN GOSUB 4140 
OF 1398 GOTO 1328 

BL 1488 Y=Y4K2:C0ST=T0T:G0SUB 3876 
GH 1418 POSITION K23.Y:? "TOTAL: "; COSTS 
UG 1428 POSITI ON K 5,K22;? "Press <ESC> to 

return to GanB" 
IK 1438 IF PEEirfl(764) =K28 THEN 166 
OR 1446 GOTO 1438 
PI 1458 GRAPHICS KeiPOKE K718,K4:P0KE K78 

9,K255:P0KE K16,K64:P0KE K53774,K64:P0 

KE K752,K1:G0SUB 5716:G0SUB 5696 
GP 1468 KX=144: GOSUB 2776 
QK 1478 GOSUB 3346: GOSUB 3440 

RR 1488 GOSUB 3386:GeSUB 3528 

QH 1496 POSITION K2,K6:? "QSimBillfl" 
HF 1586 POSITION K15,K6:? " 



HC 1510 X=K15:Y=K6: GOSUB 2858 

JK 1528 IF LENfDESSJ<K26 THEN DESSCLENCDE 

S$>tKlJ=" ":GOTO 1526 
DZ 1538 DS=DESS:DES$tK26l="r':DESSCK2)=DE 

S$:DES$=" " 
TA 1548 POKE 54286, 64:G0SUB 1868:P0KE 542 

86,192:G0SUB 3568:G0SUB 4836 
PD 1558 POSITION K2,K6:? "Description:" 
ZH 1568 POKE K764,K155 
MI 1578 POSITION K4,K21:? "i r":P05ITI 

ON K17 K21:^ " ■' 
KL 1580 POSITION K17,K22:? "DELET E" 
MX 1598 POSITION K4,K22:? "aGEEHl" 
KZ 1668 POKE K53279,K16 
JF 1618 IF PEEKCK764)=K7 THEN 1666 
HK 1628 IF PEEKfK764)=K6 THEN POSITION K4 

,K21:? " ": POSITION K4,K22:? "CHA 

NGE":GDTO 1758 
DC 1638 IF PEEKCK53279}=K6 THEN P8KE K764 

,K155;KX=4: GOSUB 2836: GOSUB 2778;KX=21 

8: GOSUB 2770: GOSUB 3388: GOTO 1826 
LU 1648 IF PEEKfK532791=K5 THEN POKE K764 

,K155:P0KE 54286, K64: GOSUB 3816: POKE 5 

4286,K64:G0SUB 1880:P0KE 54286,192 
QJ 1658 GOTO 1606 
ZY 1666 POKE K764,K155 
YB 1678 POSITION K17,K21:? "^ r":POSIT 

ION K4,K21:? " " 

GO 1688 PSSITION K4,K22:? "C HANGE" 

UH 1698 POSITION K17,K22:? "GHIIO" 

HG 1788 IF PEEKCK764)=K6 THEN 1566 

JG 1718 IF PEEK(K764}=K7 THEN 1758 

KI 1728 IF PEEK(K53279I=K5 THEN POKE K764 

,K155:P0KE 54286, K64: GOSUB 188e:PeKE 5 

4286,192 :GOTO 1566 
BE 1738 IF PEEKCK53279)=K6 THEN FOUNDS="Y 

": GOSUB 1228: GOTO 1886 
QU 1748 GOTO 1706 
XH 1758 POKE K764,K155:P0SITi0N K32,K21:? 

"t r": POSITION K17,K21:? " " 

KJ 1766 POSITION K17,K22:? " DELE TE" 

HE 1778 PSSITION K32,K22:? "01311" 

FZ 1788 IF PEEKfK764)=K6 THEN POSITION K3 

2,K22:? "HENU": POSITION K32,K21:? " 

-^■:GOTO 1660 
DP 1798 IF PEEKCK764J=K7 THEN POSITION K3 

2,K22:? "MENU": POSITION K32,K21;? " 

-":GOTO 1566 
PN 1888 IF PEEKfK53279I=K6 THEN F0UNDS="Y 

": GOSUB 1228:G8T0 1926 
UN 1818 GOTO 1788 
GL 1826 GOSUB 3568:F0UNDS="Y" 
OH 1838 IF D$C1,1]="»" THEN GOSUB 3646 
NJ 1848 IF 0SC1,1)<>"N" THEN GOSUB 3688 



KD 1858 CH$="Y":G0T0 2078 

TV 1866 CLOSE ttKl: CLOSE ttK2 ^ 

NA 1878 OPEN ttKl,K4,K6,FILElS:0PEN ttK2,K8 

,K6,FILE2S 
LK 1888 INPUT ttKl,DESCS, DATES, IDS, COST 
CX 1898 IF DATES="XXXXXX" THEN 2616 
DH 1908 IF DStl,l)="«" THEN GOSUB 1956 :F0 

UNDS="Y": RETURN^ 
ZU 1918 IF D$=DESCS THEN AA=AA«K1 :GOTO 19 

48 
UH 1928 PRINT ttK2;DESCS SPRINT ttK2;DATE$:P 

RINT ttK2; IDS: PRINT nK2;C0ST 
VH 1938 GOTO 1888 
HF 1948 IF AA>K1 THEN 1926 
GI 1958 GOSUB 3876 
NA 1966 POSITION K15,K6:? " 

": POSITION K15,K6:? DESCS 
HP 1976 POSITION K16.K9:? DATES 
UT 1988 POSITION K13.K12:? IDS 
VS 1998 POSITION K9,K15:? COSTS 
AA 2808 RETURN 
FY 2818 DESCS="ENDOFFILE ":DATES 

="XXXXXX" : IDS="XXXXXXXXXXXXXXX" : COST=e 

: GOSUB 4886 
UF 2828 PRINT ttK2:DESCS: PRINT ttK2;DATES:P 

RINT ttK2; IDS: PRINT ttK2;C0ST 
SX 2838 CLOSE ttKl: CLOSE ttK2 
AK 2846 XIO 33,nKl,K8,K6,FILElS 
LC 2856 XI8 32,ttKl,K8,K6,"Dl:INU.TNP,INV. 

DAT" 
QF 2868 GOTO 160 

YS 2878 POKE K764,K155;P0K E K53279.Kie 
PX 2888 POSITION K2,K6:? '13333BSS3IB" 
UH 2898 POSITION K2,K9:? "DateCYYHNDDI :" 
XI 2108 IF PEEKCK764J=K28 THEN P8SITI0N K 

2,K6:? "Description:":GOTO 2766 
KL 2118 IF PEEKfK53279)=K6 THEN 2168 
RI 2126 IF PEEK(K53279I=K5 AND DSll,l>="« 

" THEN GOSUB 2848: GOSUB 2756: GOSUB 356 

6; GOSUB 4836:6010 1560 
KV 2136 IF PEEKfK764]=K15 THEN 2220 
BN 2148 IF PEEKCK764)=K14 THEN POSITION K 

2,K6:? "Description:":GOTO 2556 

OD 2158 GOTO 2180 

HQ 2166 POSITION K15,K6:? " 



HN 2170 X=K15:Y=K6: GOSUB 2858 

QP 2188 IF LENCDESSXK28 THEN DESSCLENCDE 

SS>tKl>=" ":GOTO 2186 
SR 2196 IF DESS=" " TH 

EN GOSUB 2736: GOTO 2178 
FH 2286 DESCS=DESS:DESSCK28)="«":DESSCK2) 

=DESS:DESS=" " 
NT 2216 GOTO 2100 

YH 2228 POKE K764,K155:P0KE K53279,K16 
OS 2238 POSITION K2,K6:? "Description:" 
QL 2240 POSITION K2,K9:? ■ 1>ng4'Bimgim " 
EO 2258 POSITION K2,K15:? "Cost $" 
VZ 2268 POSITION K2,K12:? "Id NUMber:" 
MR 2278 IF PEEKCK764)=K28 THEN POSITION K 

2,K9:? "DateCYYNMDDI :":GOTO 2788 
KA 2288 IF PEEK tK53279}=K6 THEN 2336 
SF 2298 IF PEEKCK53279)=K5 AND DS(1,1>="« 

" THEN GOSUB 2840: GOSUB 2756: GOSUB 356 

6: GOSUB 4836: GOTO 1568 
NL 2388 IF PEEKCK7e4)=K14 THEN 2878 
UG 2318 IF PEEKCK764)=K15 THEN 2398 
RX 2328 GOTO 2278 

MV 2330 POSITION Kie,K9:? " " 

BH 2348 X=K16:Y=K9: GOSUB 2978 

IH 2356 IF LENCDTSKK6 THEN DTS (LENCDTS)« 

K1J=" "SGBTO 2350 
SZ 2368 IF DTS=" " THEN GOSUB 2736 :G 

OTO 2348 
BF 2370 DATES=DTS:DTSCK6)="f":DTSfK2)=DTS 

:DTS=" " 
SP 2388 GOTO 2278 

ZE 2398 POKE K764,K155:P0KE K53279,K16 
UD 2488 POSITION K2,K9:? "DateCYYMMDDJ S" 
RH 2418 POSITION K2,K12:? " H!B.'lii;iajJI " 
EJ 2428 POSITION K2,K15:? "Cost S" 
KF 2436 IF PEEKCK764I=K14 THEN 2228 
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5F 2448 IF PEEKfK764}=K15 THEN 2550 

HE 2450 IF PEEKCK764}=K28 THEM POSITION K 

2,K12:? "Id NUNber:":GOTO 2700 
5N 2460 IF PEEKfK53279)=K6 THEN 2490 
50 2470 IF PEEKfK53279)=K5 AND D$(1,1J="» 

" THEN GOSUB 2840:G0SUB 275e:G0SUB 356 

0:G05UB 4030: GOTO 1560 
RP 2480 GOTO 2430 
XG 2490 POSITION K12,K12:? " 

11 

UO 2500 X=K13:Y=K12: GOSUB 3090 

BK 2510 IF LENCIDENT$)<K15 THEN IDENTStLE 

NCIDENTS)«K1)=" ":GOTO 2510 
HI 2520 IF IDENT$=" " THEN 

GOSUB 2730: GOTO 2500 
TA 2530 ID$=IDENTS:IDENTSCK15)="ir'!lDENTS 

tK2J=IDEHT$:IDENTS=" " 
RF 2540 GOTO 2438 
YH 2550 POKE K784.K155:P0KE K53279,K10 

HF 2560 POSITION K2,K12:? " Id Num ber:" 

LI 2570 POSITION K2,K15:? "QQSaE" 

QN 2580 IF PEEK(K784}=K28 THEN POSITION K 

2,K15:? "Cost 5": GOTO 2700 
PE 2590 IF PEEK(K53279)=K6 THEN 2640 
RN 2600 IF PEEKfK53279)=K5 AND D$(1.1)="W 

" THEN GOSUB 2840: GOSUB 2750: GOSUB 356 

0:GOSUB 4030:G0T0 1560 
TQ 2618 IF PEEKfK764}=K14 THEN 2398 
MV 2628 IF PEEKCK7e4}=K15 THEN POSITION K 

2,K15:? "Cost $":GOTO 2070 
UD 2630 GOTO 2588 

ZE 2640 POSITION K18,K15:? " " 

PV 2650 X=K10:Y=K15: GOSUB 3218 

01 2660 IF LEN(CSTS}<K10 THEN CST$CLENCCS 

T$>*K1>=" ":GOTO 2660 
DK 2670 IF CST$=" " THEN GOSUB 2 

738: GOTO 2650 
VL 2680 C0ST$=CSTS:C0ST=VALCC0ST$);CSTSCK 

lOJ ="V ; CSTS CK2> =CST$ : CST$=" " 
UV 2690 GOTO 2588 
NH 2788 IF CH$="Y" THEN GOSUB 1220: GOTO 1 

920 
DR 2710 GOSUB 2840 
TG 2728 GOTO 868 
ZI 2738 POKE 712,64:? "Q":FOR I=K1 TO 108 

:NEXT I 
GH 2748 POKE 712,K0:RETURN 
GR 2750 GOSUB 344e:P0KE 54286, 64:G0SUB 38 

10: POKE 54286, 64: GOSUB 1880: POKE 54286 

,192: RETURN 
CO 2768 KX=4: GOSUB 2838: GOSUB 2770:KX=210 

:G0SUB 2770:G0T0 3388 
HS 2770 FOR 1=1728 TO 1732:P0KE I,KX:FOR 

DELAY=1 TO 3: NEXT DELAY: NEXT I: RETURN 

FB 2838 FOR I=K17 TO K21: POSITION KO.I:? 
■t 

":NEXT I: RETURN 
DS 2848 KX=4:g6sUB 2830:G0SUB 2770:KX=144 

: GOSUB 2830: GOSUB 2770: GOTO 3388 
HC 2850 POSITION X,Y:? "_" 
GD 2868 FOR I=K1 TO K21 
XC 2870 IF KKI then I=I«K1:POSITION X,Y: 

? " ":X=X+K1 
HQ 2888 GET t}K4,DESC 
DV 2898 IF DESC=K28 OR DESC=K29 OR DESC=K 

38 OR DESC=K31 THEN 2888 
PG 2900 IF DESC=K155 THEN 2960 
MU 2918 IF I=K21 THEN I=I-K1; POSITION X,V 

:? " ":X=X-Kl:GOTO 2880 
VX 2920 IF DESC=126 THEN X=X-K1 : POSITION 

X,Y:? "_": POSITION X,Y:? "_": POSITION 

X+K1,Y:? "_":l=I-Kl 
LJ 2923 IF KKI THEN 2870 
YD 2925 IF DESC=126 THEN DESSfIJ=" ":GOTO 

2870 
LJ 2930 POSITION X,Y:? CHR$fDESC) 
DZ 2940 IF IOK20 THEN POSITION X4K1,Y:? 

■ ■ II 

AD 2950 DES$CI>=CHR$CDESC}:X=X+Kl:NEXT I 

BK 2960 RETURN 

HK 2970 POSITION X,Y:? "_" 

YK 2988 FOR I=K1 TO K7 

XK 2990 IF KKI THEN I=I+K1: POSITION X,Y: 




THE AMAZING VOICE MASTER® 

Speech and Music Processor 

00 Your computer can talk in your own 
voice. Not a synthesizer but a true digitizer 
ttiat records your natural voice quality— and in 
any language or accent. Words and phrases can 
be expanded without limit from disk. 

^ And it will understand what you say. a 

^^ real word recognizer for groups of 32 words or 
phrases with unlimited expansion from disk 
memory. Now you can have a two way conver- 
sation with your computer! 

^^ Easy for the beginning programmer 

with new BASIC commands. [Machine language 
programs and memory locations for the more 
experienced software author. 

^ Exciting IVIusic Bonus lets you hum or 
^^ whistle to write and perform. Notes literally 

scroll by as you hum! Your composition can be 
edited, saved, and printed out. You don't have to 
know one note from another in order to write 
and compose! 

Based upon new technologies invented by COVOX. One low price buys you the 
complete system— even a voice controlled black-jack game! In addition, you will 
receive a subscription to COVOX NEWS, a periodic newsletter about speech 
technology, applications, new products, up-dates, and user contributions. You will 
never find a better value for your computer. 

UNLY <|>09.93 includes all hardware and software. 

Available from your dealer or by mail. When ordering by mail add $4.00 shipping 
and handling ($10.00 foreign, $6.00 Canada). 

The Voice Master Is available lor the Commodore 64, 128, Apple lie. Me, II+, and 
Atari 800, 800XL, 130XE. Specify model when ordering. (Apple ll> owners must 
have joystick adapter. Available from Covox at only $9.95.) 

Apple lie and 11+ owners: Enhance speech quality and music capabilities with 
optional Sound Master hardware card. Installs in slot 4 or 5. Available separately 
for $39.95 with demo software, or order with Voice Master for only $119.95 (saves 
$10 when ordered separately). 

For telephone demo, additional information, or prompt service lor credit card orders, 

B CALL (503) 342-1271 ■ 

Call Of write today lor FREE audio demo cassette tape and brochure. 



COVOX INC. 



(503) 342-1271 



675-D Conger Street, Eugene, OR 97402 

Telex 706017 (AV ALARM UD) 
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A DIVISION OF MICRO PERIPHERALS, INC. 

P.O. BOX 36B 
-® KETTERINB, OHIO 4S409 ' - ^® 

ATARI ATARI 



A' 



A 



ATARI 

SMST'j C'mon Now. Do II! CALL 

SF 314 Double Sided Drive CALL 

SHD 204 20 Megabyte Hard Disk CALL 

SO 1 224 RGB Color Monitor CALL 

130XE ..(8-bit Wonder of ttte World!) ...129 

65 XE 89 

1050 Disk Drive 139 

1020 Color Printer/Plotter 28 

Power Supply 400/800/810 1050/850 15 

Power Supply 600/800 XL, 130 XE 22 

INDUS GT 219 

Power Supply (or Indus GT 19 

PANASONIC 

KX-P1080 . . 5 NLQ MODES! NEW 219 

KX-P1 091 Rated the No. 1 Printer! .... 249 

KX-P1092 80col.True180cps 339 

KX-P1592 136 col. True 180 cps 549 

KX-P3131L.Q. Daisy. 80 col 279 

KX-P3151 L.Q.Daisy. 136 col 429 

KX-Pl 10 Ribbon. BIk 9 

COLOR RIBBONS 11 

CITIZEN 

MSP-10 289 

MSP-15 GALL 

EPSON 

LX-80 (80 col) 239 

FX-85(80col) 379 

FX-286 200cps(135col) 539 

STAR MICRONICS 

SG-10(80col) 229 

SG-15(135col) 429 

STAR SG-10 Ribbons 4 

MODEMS 

ATARI 1030 45 

XM-301 Direct Connect 38 

QM1 1200 ST (lor 520 ST Complete!) 179 

HAYES 1200 Smartmodem 399 

US ROBOTICS COURIER 2400-100% Hayes! 429 
PRENTIS P212ST-t200 bps. 100% Hayes' 239 

MPP1200AT 219 

VOLKSMODEM 1200 199 

AVATEX Smart 1200 bps Special . 119 

INTERFACES/BUFFERS 

ATARI 850 In Stock! 119 

P:R. CONNECTION (100% 850compatibte) . .66 

CABLES - We've Got 'Em CALL 

U CALL (For Hayes, etc.) 39 

U PRINT A 59 

U PRINT A-64 with 64K Butler 99 

APE FACE XLP 59 

Supra/ MPP MICROPRINT 39 

Supra/ MPP MICROSTUFFER (64K Butter) 79 
Suora/MPP1150 54 



SOFTWARE and BOOKS 

ST SOFTWARE . . TOO MUCH TO LIST . . CALL 
ALL titles from: Haba. VIP, Broderbund, 
Mark of the Unicom. Hippo. Unison World, 
Migraph. Oss. InlKom, Atari, Michlron, 
SST Systems, Mirage Concepts, etc. 
We will have eveiytlilng WORTH having! 
"THE C PROGRAMMING LANGUAGE" by B.W. 

KernighanandD.M. Ritchie 19 

B BIT SOFTWARE FOR THE UTEST, CALL 

PAPERCLIP 39 

PRINTSHOP 29 

GRAPHICS LIBRARY #1, #2. or #3 (each) .16 

O.S.S. BASIC XE 46 

O.S.S. BASIC XL 36 

MONITORS 

TEKNIKA MJ-10 Composite Color 189 

TEKNIKA MJ-22 RGB and Composite 279 

THOMPSON Green W/Audio 85 

THOMPSON Amber W/Audio 90 

THOMPSON Composite Color 159 

THOMPSON RGB/Composite 319 

ACCESSORIES 

ST- COVERS, Heavy Grade Vinyl 8 

ST- MOUSE MAT, Matching ST Color ... 10 

ST- 6' Printer Cable 19 

ST- Modem Cable (to Hayes, etc.) 17 

ST- Monitor Stand, Swivel & Tilt 15 

Disk File for 3.5" disks (holds 40) 9 

Flip N File DATA CASE (holds 50) 8 

Disk File, witti Lock (holds 100!) 13 

Rotary Disk File (holds 72) 15 

Power Strip. 6 outlet, (15 amp Surge) 15 

Printer Stand, Heavy Duty, Sloping 13 

ATARI "Standard" Joystick 6 

6' Atari Serial I/O Cable 6 

CompuServe Starter Kit 21 

U.S. DOUBLER(Dbl. Density lor 1050) . . 49 
"Duplicator" 129 

PRINTER SUPPLIES 

MAILING UBELS. White, 500 pack 3 

per 1000 4 

Blu,Pnk,Gn, Yel, 800 pack (200 ea) . 8 

per 500. any 1 color 4 

per 1000. any 1 color 6 

Big Labels. 1-7/16x4". White, per 500 4 

PRINTER PAPER. Micro-Fine perls. 20 lb. 

500 sheets. Pure White Bond 7 

1000 sheets, same as above 12 

Canon (2600 sheets), as above 26 

PRINTSHOP "Rainbow" Color Paper Packs 

Pastels (5 colors) . 50 sheets of ea 12 

Matching Envelopes. 20 of each 6 

Brights (8 colors). 50 sheets of ea 29 

Matching Envelopes. 20 of each 10 

ALL 13 colors. 50 sheets of each 39 

Matching Envelopes. 20 of each 14 

(Deduct 10% for 100/color paper packs) 



Prices Are Per Box of 10 DISKETTES Minimum Order of 2 Boxes 



No of 
Boxes 










WABASH 


3.5" 


MICRO-FLOPPIES | 


GENERIC 


BONUS 


SONY 


MAXELL 


VERBATIM 


SS/DD 


DS/DO 


SS/OD 


DS/DO 


SS/OD 


SS/DD 


SS/OD 


SS/DD 


2-5 


8.50 


1050 


1050 


1350 


1050 


23 50 


21 50 


18.50 


6-10 


7 50 


9 50 


9 50 


12 50 


9.50 


21 50 


19.50 


17 50 



Rainbow Colored Centech Dislts (2 ea of 10 colors per pkg) 17 

'Silver" Centech Disks (20 Pack) 17 



TO ORDER, CALL TOLL FREE 

1-800-S55-5835 



24 HP snipping o 



MP 9 am-9 pm • SAT 10 am-4 pm EST 
Ohio Residents Call (513) 294-6236 



n in stock Her 

inly, add J3 • 
cfiecks to clear • Sfiipoiig'Hai 
night sriipment available at e>i1' 
FPO • Canadian orders, actual shipping plu: 
number to be accepted for lepair or replacement 
toll Iree for latest price and availability of produf 



TERMS AND CONOITtONS 

■ NO EXTRA CHARGES FOR CREDIT CARDSi 
10 residents aOO 6% sales ia> • Please aiiov 
ig Hardware, %i minimum, Software aid mosi 
large • We stiip 10 Alaska. Hawaii, Puerio Ric 



• Minimum order S20 • CO.D lo 
3 weeks 'or personal or company 
accessories, $3 minimum • Over 
D (UPS Blue Label Only), APO, and 



CIRCLE #109 ON READER SERVICE CARD 



imi Home Inventory continued 



? X=XtKl 

HX 3600 GET ttK4,DT 

SR 3010 IF DT=K28 OR DT=K29 OR DT=K30 OR 

DT=K31 THEN 3000 
HP 3020 IF DT=K155 THEN 3080 
HM 3030 IF I=K7 THEN I=I-K1:P05ITI0N X,Y! 

? " ":X=X-K1:G0T0 3000 
RF 3040 IF DT=126 THEN X=X-K1: POSITION X, 

Y:? "_": POSITION x,Y:? ■'_": position X* 

Kl,v:? ••_•': i=i-Kl 
NE 3042 IF KKl THEN 2990 
UD 3043 IF 01=126 THEN DT$CI]=" ":G0T0 29 

90 
CO 3045 IF DT<48 OR DT>57 THEN 3000 
PG 3050 POSITION X,Y:? CHRSfDTI 
RC 3060 IF IOK6 THEN POSITION XtKl,Y:? " 

LL 3070 DTSfII=CHRS{DTl:X=X«Kl:NEXT I 

OZ 3080 RETURN 

GZ 3090 POSITION X,Y:? "_" 

IB 3100 FOR I=K1 TO K16 

WX 3110 IF KKl THEN I=ItKl: POSITION X,Y: 

' " "sX^X+Kl 
GR 3120 GET nK4,ID 
HZ 3130 IF ID=K28 OR ID=K29 OR ID=K3e OR 

ID=K31 THEN 3120 
RS 3140 IF ID=K155 THEN RETURN 
NF 3150 IF I=K16 THEN I=I-K1: POSITION X,Y 

:? " ":X=X-Kl:GOTO 3120 
NC 3160 IF ID=126 THEN X=X-K1: POSITION X, 

Y:? "_": POSITION X,Y:? "_••: POSITION X* 

K1,Y:? "_":i=i-Kl 
6T 3163 IF KKl THEN 3110 

HC 3165 IF ID=126 THEN IDENT$fI)= GOTO 

3110 
DY 3170 POSITION X,Y:? CHR$(ID} 
GB 3180 IF IOK15 THEN POSITION X+Kl.Y:? 

II II 

OB 3190 IDENTSCIl=CHRSCID}:X=XtKI:NEXT I 

AF 3200 RETURN 

GF 3210 POSITION X.V:? "_" 

AV 3220 FOR I=K1 TO 11 

MF 3230 IF KKl THEN 1=1^X1 .-POSITION X,Y: 

9 II •'•}(=X'''K1 
NC 3240 GET ttK4,CST 
UQ 3250 IF CST=K28 OR CST=K29 OR CST=K3e 

OR CST=K31 THEN 3240 
XA 3260 IF CST=K155 THEN RETURN 
HH 3270 IF 1=11 THEN I=I-K1 {POSITION X,Y: 

? " ":X=X-Kl:GOTO 3240 
YQ 3280 IF CST=126 THEN X=X-K1:P0SITI0N X 

,Y;? "_": POSITION X,Y:? "_": POSITION X 

♦Kl.Y:? "_"!I=I-K1 
EL 3283 IF KKl THEN 3230 
HL 3285 IF CST=126 THEN CSTSfIJ=" 'MGOTO 

3230 
AX 3290 IF CST=47 OR CST<46 OR CST>57 THE 

N 3248 
AX 3300 POSITION X,Y:? CHR$CCST} 
CS 3310 IF lOKie THEN POSITION X«K1,Y:? 

■ I 11 

XH 3320 CSTSfI)=CHRSCCST):X=X+Kl:NEXT I 

AQ 3330 RETURN 

UU 3340 POKE 7e8,196:P0SITI0N K5,K2:? " 

CHANGE" 
AH 3350 RETURN 
GD 3360 POKE 708,196:POSITION K5,K2:? " 

ADD" 
BC 3370 RETURN 
YD 3380 POSITION K0,K17!? "r — 

FJ 3390 POSITION K0,K18:? "| 

FE 3400 POSITION K0,K19:? "| 

ZC 3410 POSITION K0,K20:? "i 

XJ 3420 POSITION K0,K21:? "•■ 



_ln 



AS 3430 RETURN 

PA 3440 POSITION K2,K6;? "Description:" 
UT 3450 POSITION K2,K9:? "DateCYYMHDD) :" 
HE 3460 POSITION K2,K12:? "Id NUMber:" 
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ANALOG COMPUTING 



EZ 3476 POSITION K2,K15:? "COSt S" 

BH 3486 RETURN 

GH 3498 POSITION K4,K18:? "Enter data - P 

ress <RETURN>" 
CR 3508 POSITION K4,K26:? "Press <START> 

to continue" 
AO 3518 RETURN 
AH 3528 POSITION K3.K18:? "Enter Descript 

ion - press <RETIIRH>" 
00 3538 POSITION K19,KI9:? "Or" 
GR 3540 POSITION K3,K28:? "Use an •«■ to 

step thru the file" 

BA 3558 RETURN 

ZY 3568 POSITION K1,K18:? " 

■■ 

AV 3578 POSITION K1,K19:? " 

■I 

UT 3588 POSITION K1,K28:? " 

■ ■ 

BH 3598 RETURN 

DS 3688 POSITION K8,K18:? "Use ";CHR$C27} 

;"t ";CHR$C27);"* keys - press <START> 

II 

LH 3618 POSITION K6,K19:? "Press <RETURH> 

after entry" 
GO 3620 POSITION Ke,K2e:? "Hhen finished 

press <ESC>" 
AH 3638 RETURN 
KN 3646 POSITION K1,K18:? "Use ";CHR$C27} 

;"t ";CHR$C27J;"* keys - press <start> 
Press" 
JK 3650 POSITION K1,K19:? "<RETURN> after 

entry. For More entries" 
PE 3668 POSITION K1,K28:? "press <SELECT> 

. To end press <ESC>" 
BI 3670 RETURN 
TZ 3688 CLOSE t{Kl: CLOSE ttK2 
TQ 3690 TRAP 372e:0PEN ttKl.K4,Ke,FILEl$:T 

RAP 32767 
EJ 3786 OPEN ttK2,K8,K0,FILE2S 
UJ 3718 GOTO 3768 

AT 3728 CLOSE ttKl'.OPEN ttKl,K8,K8,FILEl$ 
KL 3736 DESCS="ENDOFFILE "tOATE 

$="}<]<XXXX" : IO$="XXXXXXXXXXXXXXX" : COST= 

KO 
PG 3748 PRINT »K1;DESCS: PRINT ltKl;DATE$:P 

RINT ttKl;ID$ SPRINT ttKl;COST 
IZ 3750 CLOSE ttKl:GOTO 3688 
LE 3768 INPUT ttKl,DESC$,DATE$, IDS. COST 
RY 3778 IF DATES="XXXXXX" THEN RETURN 
VH 3788 PRINT ttK2;DESC$ : PRINT ttK2;DATES:P 

RINT ttK2: IDS -.PRINT ttK2;C0ST 
Vn 3796 GOTO 3760 
RH 3888 POKE 54286,64 
UT 3816 PRINT »K2;DESC$:PRINT ttK2;DATE$:P 

RINT ttK2; IDS: PRINT t»(2;CeST 
CL 3826 POKE 54286,192 
BA 3836 RETURN 
XB 3846 POSITION K15,K6:? " 

": POSITION K16,K9:? " _" 

HJ 3856 POSITION K13,K12:? " 

"".POSITION Kie,K15:? " " 

BJ 3868 RETURN 

LZ 3876 SIGN=SGNCCOST):COST=ABS(COST) 

TP 3886 C0ST=INTCCC0ST*5.8E-83]»186J/188 

EN 3898 AHTS=STR$CC0ST) 

SA 3986 DLEN=LENCSTRSfINTtCOST))} 

LH 3916 CLEN=LENCAHTS)-0LEN 

VO 3926 IF CLEN=Ke THEN AHTSCLENCAHTSJtKl 

>=".86" 
SV 3936 IF CLEN=K2 THEN AHTSlLENCAHT$)tKl 

J ="8" 
RA 3946 J=K8:C0STS=" " 

TK 3956 FOR I=Kie TO 11-LENCAHTSJ STEP -K 

DC 3968 C0STSCI.I)=AHTS{LENCAHTS1-J) 

HV 3976 J=J4Kl:NEXT I 

US 3986 IF SIGN<K6 THEN COSTS II,IJ="-" 

BU 3996 RETURN 

HZ 4806 POSITION K4,K22:? "QEECBl D 

ELETE HENU" 

RF 4816 POSITION K6,K19:? "Use ";CHRSC27I 

•"♦ ":chrSc271;"* keys, press <START>" 







WE / 




GUARANTEE/ 




TO BEAT ANY / 




ADVERTISED / 




PRICE / 

/ HARD 


SOFT 


VsT COMPUTERS 
# SCALL 


DEGAS 
$25 


M 130 XE 
# $CALL 


H&D4th 
$65 


M HABA 10 MGBYTE 
m $575 


ZORKI 
$25 


m HAYES 1200 MODEM 
m $379 


CHECKMINDER 
$39 


m CITIZEN MSP10 
m PRINTER 
m $265 


HIPPO C 
$39 

P/C INTERCOM 
$75 



CALL TO ORDER ALL SOFTWARE & 
HARDWARE AVAILABLE. 

WRITETOBEPLACEOON MAILING LIST 

FOR NEW PRODUCT INFO AND 

MEMBERSHIP 

P.O. BOX 3025 

NORTHRIDGE, CA 91323 



NATL 1(800)423-3444 
CALIF 1(800)424-3444 
LOCAL (818)886-5486 



YOUR 



ALSO FEATURING 
ELECTRONIC MUSIC FOR YOUR ATARI 

All systems include all hardware, interlace, 
cables, & user's manual with applications guide. 

A1IDITRACK 

MIDITRACK II (48K REQUIRED) $349.74 

MIDITRACKIII (130 XE) 374.74 

MIDITRACK ST (520 ST) 574.74 

SESSIONS PLAYER PROGRAM INCLUDED FREEI 

CASIO CZ101 MIDI SYNTHESIZER CALL 

CALL FOR BUNDLED PRICES AND INFO. 



CIRCLE #110 ON READER SERVICE CARD 



ANALOG COMPUTING 
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A ATARI 



SG-10 PRINTER & 
U-PRINT A INTERFACE 

$269 

This Is a SHIPPED PRICE 

anywhere In Continental USA 



PANASONIC 1091 & 
U-PRINT A INTERFACE 

$299 

This is a SHIPPED PRICE 

anywhere in Continental USA 



MONITORS 

Commodore 1802 . . 179 Amdek Call 

Taxan Call Samsung Green . . 79.95 

Sakata 100-C 169 Samsung Amber . . 79.95 

Monitor Shipping $10.00 



PRINTER 
BUFFERS 

U-Buff 16K ..79.95 
U-Buff 64K . . 99.95 



Infocom ST 

THE ENTIRE CATALOG OF INFOCOM IS AVAILABLE 
CALL FOR PRICES 

Hippopatamus 

Call tor Items and prices 



Haba ST 

Hippo C 54.95 

Checkminder 54.95 

Business Letters 34.95 

Wills 34.95 

Haba Writer 54.95 

HabaCalc 54.95 

Haba Graph 54.95 

Haba File 54.95 

Haba Com 54.95 



Hard Drives 

Supra 10 Meg 649 

Supra 20 Meg 849 

Supra 30 Meg Call 

Supra 60 Meg Call 

OSS ST 

Personal Pascal 64.95 

Personal Disk Kit 27.95 

Personal Prolog 79.95 



PRINTER 
INTERFACES 

U-Print A 54.95 

P.R. Conn 69.95 

U-Print A 

W/16K 79.95 

U-Print A 

W/64K 99.95 

MPP1150 .... 54.95 




iicr^mci ■ mc 



NEW 

NX-10 Call 

SG-10 Call 

SG-15 369 

SD-10 339 

SD-15 449 

SR-10 Call 

SR-15 Call 



MODEMS 

Volksmodem 

1200 189 

Atari XM-301... 44.95 
Prometheus 

1200 319 

IVIaxwell 1200 . . Call 
Maxwell 2400 . . Call 
Prometheus 

2400 Call 

Supra 1000E . . 44.95 
Supra 1200AT... 159 

QMI1200ST 159 

Supra 1200ST ... 159 



ATARI 130XE 
1050 Disk Drive 
1027 Printer 



ATARI 520 ST 

SOFTWARE & HARDWARE* 
520 ST RGB System . Call 
520 ST Monochrome 

System Call 

SF 354 SS/DD 

Disk Drive 169 

20 Megabyte 

Hard Drive Call 

SF 314 DD/DD 

Disk Drive 219 

'Plaata call lor alock anllabllHy on 
ST products batora ortierlng by mall 



CALL FOR 
INDIVIDUAL AND 
SUPER PACKAGE 
PRICE 



Miscellaneous ST 

Gato 34.95 

King's Quest II 34.95 

STTalk 17.95 

H 8, Base 69.95 

Typesetter ST 27.95 

Habadex Phone 39.95 

General Ledger 84.95 

Word Invaders 24.95 

M-Copy 54.95 

Financial Cookbook 34.95 

Brataccus 34.95 

Michtron Utilities 41.95 

Exploding Fist 34.95 

Ballyhoo 27.95 

Black Cauldron 27,95 

M-Dupe 24.95 

Printmasler ST 27.95 

PC Intercom 89.95 



The Final Word 94 

Hex 27 

Sundog 27, 

Flip Side 27. 

Soltspool 27, 

VIP Professional 119 

Ultima II 

Perry Mason 34 

Degas 27 

Farenheit451 34 

Amazon 34, 

Hacker 29, 

9 Princesses Amber 34. 

Oragonworld 34. 

Treasure Island 27. 

Wizard of Oz 27. 

Transylvannia 27, 

Borrowed Time 34 

Mi-Term 34, 

Begem Word 34, 



PRINTERS 

CItoh 7500AP ... 219 

Epson Call 

Toshiba 1340.... 559 

Legend 808 169 

Panasonic1091 .245 
Panasonic1080..215 
Powertype 309 



While Supplies last 

850 Interface 109 

1027 Printer & 
Atariwriter Plus ...129 



HUNDREDS OF 

ITEMS 

AVAILABLE FOR 

THE ATARI 



PLEASE CALL 

95 Regent Spell 34.95 

95 Zoomracks 59.95 

.95 Winnie the Pooh 19.95 

.95 Isgur Portfolio Call 

.95 Easy Draw 109.95 

.95 ST Tool Box 24.95 

95 Mudpies 27.95 

,95 Mindshadow 34,95 

95 Music Studio Call 

.95 Silent Service Call 

.95 Flight Simulator Call 

.95 Phanlasie 27.95 

.96 PC Board Designer Call 

.95 Abacus Books 16.95 

,95 Mean 18 Golf 34,95 

95 Art Gallery I 20.95 

,96 Oos Shell 34.95 

96 Kissed 27.95 

95 Goldrunner 27.96 

96 Time Bandit 27.95 



Super Specials* 



MAC 65XL 
Basic XL . 



44.95 Action 



34.95 



Basic XE . . . 
All Tool Kits 



CfiUi^iLs Super Specials* 

44.95 Writer's Tool 39.95 

44.95 Personal Pascal (ST) . . . 54.95 



PRICES EFFECTIVE NOW THROUGH JUNE 30, 1986 



A T 

ACTIVISION 

Call for items and prices 

BROOERBUNO 

Karateka-O 20.95 

Champ Loderunner-D . . .23.95 

Print Shop-D 28.95 

Bank Street Writer-O . . .34.95 
Print Shop Graphics 

l.llorlll-D 19.95 

Print Shop Paper 16.95 

Print Shop Comp 27,95 

INFOCOM 

Deadline-D 29.95 

Enchanter-D 24.95 

Infidel-D 29,95 

Planetfall-D 24,95 

Sorcerer-D 29.95 

Starcross-D 29.95 

Starcross-O 29.95 

Suspended-D 29.95 

Witness-D 29.95 

Sea Stalker-D 24.95 

Cutthroats-0 24.96 

Suspect-0 29.95 

Hitchhiker-D 24.95 

Zork l-D 24.95 

Zork II or (ll-D 27.95 

Wishbringer-D 27.95 

Spellbreaker-D 29.96 

Ballyhoo 27.95 

Fooblilsky 27.95 

Trinity 27,95 

XLENT SOFTWARE 

Mega(ont-0 19.96 

Page Oesigner-D 23.96 

Typesetler-O 27.95 

Megaliler-0 23.96 

Rubber Stamp 23.96 

D— DISK T-CASSETTE 
^CART-CARTRIDQE 



A R 

MICROPROSE 

Silent Service-D 23.95 

Gunship-D 23.95 

Accrojet-D 23.95 

F-15 Strike Eagle-D 23.95 

Decision in Desert -D ...27,95 
Kennedy Approach-0 . . .23.95 
Crusade in Europe-0 27.96 

OPTIMIZED 
SYSTEMS 

Basic XE-Cart 52.95 

MAC 65 XL-Cart 49.95 

Action-Cart 49.95 

Basic XL 39.96 

All Tool Kits 20.96 

ELECTRONIC ARTS 

Archon 19.96 

Archonll 24.95 

Mule 19.96 

Realm/Impossibility 19.96 

Murder/Zinderneut 19.95 

Music Construction ....19.95 

Pinball Construction 19.95 

One on One 24.96 

Seven Cities of Gold 24.95 

Financial Cookbook 29.96 

Racing Destruction 24.95 

Super Boulderdash 23.95 

Chessmaster 2000 27.95 

GAMESTAR 

Star League 

Baseball-0/T 20,95 

Starbowl Football-D/T . . 20.95 
On Track Racing-D 20.95 

EPYX 

Rescue on Fractalus-D . . . 19.96 

TheEidolon-D 24.95 

Koronis Rift-D 24,95 

Ballblazer-D 24,95 

Summer Games-D ..... .24.95 



w 



BATTERIES 
INCLUDED 

HomePak-D 34.95 

Paper Clip-0 39.95 

B-Graph-D 34.95 



MISCELLANEOUS 

TAC III Joystick 14,95 

TAC II Joystick 12.95 

Starfighter Joystick 9.95 

Silk Stik Joystick 7.95 

Wico 3-Way Joystick . . .23.95 



— ^ EST. 1982 

P.O. Box 17882. Milwaukee. Wl 53217 

ORDER LINES OPEN 

Mon-Fri n a.m. • 7 p.m. CST • Sat. 12 p.m. - 5 p.m. CST 

To Order Call Toll Free 

800-558-0003 

For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-351-2007 

ORDERING INFORMATION: Please tpnlly lystMi. For fast 
delivery send cashier's check or money order. Personal and 
company checks allow 14 business days to clear. School PO.'s 
welcome C.0.0. chirBm «r» 13.00. In Continental U.S.A. include $3.00 
for software orders. 4% shipping for hardware, minimum $4.00. 
Master Card and Visa orders please include'card «. expiration date 
and signature, Wl residents please include 6% sales tax, HI. AK. FPO. 
APO. Puerto Rico and Canadian orders, please add 5% shipping. 
inlnlinuiii SSiOO. All other tortign ordirt idd 15% itilpplng. mlniniuni 
ilO.00. All orders shipped outside the Continental USA. are shipped 
first class insured U.S. mail If foreign shipping charges exceed the 
minimum amount, you will be charged the additional amount to get 
your package to you quickly and safely. All goods are new and 
include factory warranty Due to our low prices all sales are final »ll 
dafaclivi rMurnt muti hivi i riturn luthorlzitlon nuititiif. Please call 
(414) 351-200710 obtain an R,A.« or your return will not be accepted. 
Prices and availability subject to change without notice. 



No surcharge for MasterCard 



MISCELLANEOUS 

Hacker-O 19.96 

Mindshadow-O 19.95 

Cross Ctry. Road Race-D 19.95 

Master of Lamps-D 19.95 

Mastertype-D 27.95 

Flight Simulator-D 34.95 

Home Accounlanf-D 49.95 

Monkey Wrench-Cart . . .23.95 

Ultima lll-D 37.95 

Sargon lll-D 34.95 

Spyvs. Spy-D 23.95 

Odesta Chess-D 49.96 

NetWorth-D 49.95 

Ramrod XL 69.96 

Universe-D 69.95 

Beachead-0 21.95 

Letter Perfect-O 39,95 

Data Perfect-D 39.95 

Fleet System ll-D 49.95 

Strip Poker-O 23.95 

Halley Project-O 23.96 

Micro League Baseball-D 29.96 
Harcourt/Brace S.AT-O 49.95 

Ultima l-D 23.95 

Ultima ll-D 37.95 

F-15 Strike Eagle-D 23.95 

Ultima IV-D 41,95 

SpyHunter-D 29,95 

Tapper-0 29.95 

Omnimon 69.95 

Island Caper-D 23.95 

General Manager/MLB 29.95 

Fight Night 24.95 

Hardball 24.96 

Raid Over Moscow 27,96 

Beacheadll 27,95 

DATASOFT 

Mind Pursuit 23,95 

Neverending Story 23,95 

Alternate Reality 27,95 



SSI 

Carrier Force-O 37,95 

Combat Leader-D 24.95 

Cosmic Balance ll-D . . . .24.95 

Cosmic Balance-D 24.96 

Broadsides-0 24.95 

War in Russia-D 49.96 

50 Mission Crush-D ....24.95 

Duestron-D 32.95 

Rails West-D 24.95 

Computer Ambush-D ...37.95 
Galactic Adventures-D 37.95 
Computer Baseball-D ...24.95 

Reforger88-D 37.95 

Objective Kursk-D 24.95 

Breakthru/Ardennes-D . .37.95 

Field of Fire-D 24.96 

Imperium Galatium-D . . .24.95 
Oper. Market Garden-O . . 32.96 

Kampfgruppe-D 37.96 

Computer Quarterback-0 24,96 
Colonial Conguest-D . . . .24,95 

Gemstone Warrior-D 21.96 

Six Gun Shootout-D ....24,96 
Battle of Antietnam ....32.95 

USAAF 37.96 

Nam 27.96 

Panzer Grenider 24.96 

Mech Brigade 39.95 

SYNAPSE 

Syncalc 32.95 

Synfile 32.96 

Loderunner's Rescue . . . 20.96 

Syncalc Templates 16.96 

Essex 27.95 

Mindwheel 27,95 

Brimstone 27,96 

ATARI is a trademark 

of ATARI. INC. 
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I Home Inventory continued 



ftl 4e2e RETURN 

NI 4638 POSITION K4,K22:? " tgn-TBia D 

ELETE HENU" 

PO 4040 POSITION K4,K18:? "Use ";CHR$f27) 

;"* ";CHRSC27J;"* keys, press <ST«RT>" 
ON 4050 POSITION K19.K19:? "Or" 
MN 4860 POSITION K4,K2e:? "Press <SELECT> 

for another ite«" 
AX 4878 RETURN 
SJ 4880 POKE 54296,64 

OS 4898 IF FOUND$="N" THEN POSITION K 6.K2 
AE 4100 RETURN ^^ imf" ..— .— .u 
MY 4118 POSITION KO.KP -" ■•— I'll H HUM 
FH 4128 POSITION Ke,Kl:? " 

II 

AN 4138 RETURN 

KF 4148 POSITION K3,K20:? "Press <START> 

to continue printing" 
UO 4150 POSITION K3,K22:? "Press <ESC> to 

return to <MENU>" 
RC 4160 IF PEEKfK53279l=K6 THEN 4198 
IT 4178 IF PEEKfK764)=K28 THEN 168 
SK 4188 GOTO 4168 
ZP 4198 Y=K3 
ZN 4288 GRAPHICS KO:POKE K710,K4:P0KE K7S 

2,Kl:P0KE K709,K2S5:P0KE K16,K64:P0KE 

K53774,K64 
PE 4218 GOTO 4110 
ZQ 4238 GOSUB 5718:G0SUB 5690 
DE 4240 KX=88:G0SUB 2778:G0SUB 3380 
EO 4250 POKE 788, 196: POSITION K5,K2:? " 

PRINT" 
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EQ 4260 POSITION K18,K21:? "j r" 

CH 4278 POSITION Kie,K22:? "HMdiMlll" 

KX 4280 POSITION K2e,K22:? "PRINTER" 

BF 4298 POSITION K2,K19:? "Use ";CHR$C27} 

;"♦ ";CHR$C27);"* keys - then press <S 

ELECT)" 
ZO 4300 POKE K764,K155 
JY 4318 POSITION K20,K21:? " ";POSI 

TION K10,K21:? "i r" 

UP 4320 POSITION K10,K22:? "333113": POSIT 

ION K20,K22:? "PRINTER" 
CA 4338 IF PEEKCK764I=K6 OR PEEKCK764)=K7 

THEN 4360 
EE 4340 IF PEEKfK53279)=K5 THEN GOSUB 428 

8: RETURN 
RO 4358 GOTO 4330 
ZV 4368 POKE K764,K1S5 
FX 4378 POSITION Kie,K21:? " "; POSIT 

ION K20,K21:? "i r" 
ZT 4388 POSITION K ie.K22! ? "SCREEN": POSIT 

ION K20,K22:? "QQEjCiOS" 
RH 4398 IF PEEKfK764)=K6 OR PEEKCK764)=K7 

THEN 4308 
SV 4480 IF PEEKfK53279)<>K5 THEN 4390 
CT 4428 TRAP 32767: TRAP 4588 
RO 4438 POKE 54286,64 
JC 4448 CLOSE ttKl: CLOSE ttK3:0PEN ttKl,K4,K 

e,FILEl$:0PEN ttK3,K4,Ke,"P:":IF PEEKCK 

1951=138 THEN 4428 
CU 4458 GOSUB 4718 

KZ 4468 INPUT »K1,DESCS, DATES, ID$, COST 
OB 4470 IF DATES="XXXXXX" THEN 4540 
GK 4488 GOSUB 3878 
FT 4498 PRINT ttK3;" ";DESC$, DATES tK3,K 

4];"/":DATESfK5,K6];"/'";0ATESCKl,K2l,I 

DS, COSTS 
LZ 4500 LN0=LN04K1 

XQ 4518 IF LN0=55 THEN GOSUB 4756 
KR 4528 T0T=T0T4C0ST 
TN 4538 GOTO 4468 

NI 4548 C0ST=T0T:G0SUB 3878:PRINT ttK3 
YM 4558 PRINT «K3,,,,,;" T0TAL";C0STS 
AD 4568 GOSUB 4818: POP :G0T0 160 

VK 4668 GOTO 4588" 

DD 4678 POS ITION K 5 . K22 ; ? " i:M>y!lf!»liM:U 

HH 4686 FOR DELAY=K1 TO 308:NEXT DELAY 

BP 4698 POKE K195,K8 

QD 4708 GOTO 160 

GM 4718 PRINT ltK3,,," INUENTORY REPORT",, 

PAGE ";PGNO: PRINT ttK3 
FD 4720 PRINT ttK3, "DESCRIPTION"," DATE", 

" ID NUMBER"," COST" 
UA 4730 PRINT ttK3: RETURN 

QG 4758 FOR J=K1 TO K7:PRINT ttK3:NEXT J 
NX 4788 LN0=K8:PGN0=PGN0H^K1 
TG 4790 GOTO 4710 
QH 4818 PGRE=PGRE-LNO 
CB 4828 FOR J=K1 TO PGRE 
EF 4830 PRINT ttK3:NEXT J: RETURN 
XO 4888 REM ** BEGIN SORT ROUTINE *» 
FP 4870 ALLS= ALLS fl0208J="f": ALLS CK2J 

=ALLS 
UC 4888 GRAPHICS K8:P0KE K718,K4:P0KE K78 

9,K255:P0KE K16,K64:P0KE K53774,K64:P0 

KE K752,Kl:X=Ke:I=Ke 
IC 4898 POSITION K13,K19:? "Reading File" 
ZB 4900 FILE1S="D:INV.DAT";FILE2S="D:INW. 

TMP":CL0SE ttKl:CL0SE ttK2:0PEN ttKl,K4,K 

0,FILE1S:OPEN ttK2,K8,Ke,FILE2S 
KU 4910 INPUT ttKl,DESCS, DATES, IDS, COST 
EL 4920 IF DATES="XXXXXX" THEN 5888 
LO 4930 COSTS=STRSCCOSTJ 
CM 4940 IF LENCCOSTSXKie THEN COSTS CLENf 

C0STS>*K1J=" ":GOTO 4948 
VS 4958 RECSCKl,K20}=DESCS:RECSfK21,26)=D 

ATES : RECS €27, 41) =IDS : RECS C42 , 51} =COSTS 
QJ 4960 I=I«K1 
XE 4978 X1=X1*K1 

XJ 4988 ALLSCI»51-50,I«51)=RECS 
UI 4990 GOTO 4918 

NR 5888 PRINT "If": GOSUB 5710: GOSUB 5698 
DO 5818 KX=64: GOSUB 2776: GOSUB 3380 
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W\ Home Inventory continued 



ZC Seae poke 7e8,196:P05ITI0N K5,K2:? " 

50RT" 
LP 5836 I=I4Kl:ALL$CIM51-5e,I)(51}=PA0$ 
RK 5848 V=K2:P05ITI0N K12,K8:? "Record CO 



unt: 



;xi 



Ull ^ • f HA 

TJ 5858 GOTO 5368 

KQ 5868 POSITION K4,K10:? "IM-'lldHsSB" 
CI 5878 FOR I=K1 TO XI 

FY 5888 POSITION K22,K18:? "Horking: ";I 

NX 58S8 FOR J=Y TO XI 

UN 5188 IF ALLf C JKSl-Nl , JK51XALLS CIKSl-N 
l.IK51> THEN GOSUB 5318 

AN 5118 NEXT J: V=Y*K1 :NEXT I 

FE 5148 POSITION K12,K12:? ••^OBBSBtEBE 

B" 

HH 5158 FOR SRT=K1 TO 50: NEXT SRT: GOSUB 1 

220 
CH 5168 FOR I=K1 TO XI 
OL 5178 RECS=ALL$CI»51-58.IK51) 
UJ 5188 DESC$=REC$fKl,K28i 
FZ 5198 DATES=REC$CK21.26) 
CI 5208 ID$=RECSC27,41} 
FS 5218 C0STS=REC$f42.51J 
DH 5228 C0ST=VALCC0STS) 
UP 5238 PRINT ttK2;DESCS: PRINT ttK2;DATE$:P 

RINT nK2;lD$:PRINT ttK2;C0ST 
FJ 5248 NEXT I 
LO 5258 DESCS="ENDOFFILE ":LET D 

ATE$="XXXXXX" : LET IDS="XXXXXXXXXXXXXXX 

"•.LET C0ST=K8 
NY 5268 PRINT ltK2;DESCS: PRINT ttK2; DATES :P 

RINT tt2;ID$: PRINT ltK2;C0ST 
TO 5270 CLOSE ttKl: CLOSE ttK2 
BD 5288 XIO 33,ttKl,K8,K8,FILEl$ 
VC 5298 XIO 32,t}Kl,K8,K8,"D:INV.THP,INV.D 

AT" 
PN 5308 GOTO 168 

DE 5318 H0LDS=ALL$CI»51-50,IW51) 
XF 5328 ALLSCI«51-5e,I«51l=ALL${J»51-58,J 

KSll 
DN 5338 ALL$CJ«51-5e,J«51)=H0LD$ 
DN 5348 H0LD$=ALLSCI«51-S8,IK51) 
AY 5358 RETURN 
EE 5368 GOSUB 3380 

RF 5378 POSITION K8,K15!? "Nhich Field to 
sort on?" 

CX 5388 POSITION K3,K21:? " i r " 

OC 5398 POSITION K3,K22:? " la*!JI;tiafIiri D 

ATE ID NUMBER COST" 
ZB 5488 POSITION K4,K19:? "Use ";CHRS(27} 

;"♦ ";CHRSC271;"* ke»s then press <STA 

RT>" 
FH 5418 POKE K764,K8:P0KE K53279,K10 

CH 5428 POSITION K3,K21:? " t_ r " 

ZY 5438 POSITION K3,K22:? "igU-H.-HaHSD" 
LU 5448 IF PEEKfK764}=K6 THEN POSITION K3 

,K22:? "DESCRIPTION": POSITION K3,K21:? 

" ":GOTO 5628 

CA 5458 IF PEEKCK764)=K7 THEN POSITION K3 

,K22:? "DESCRIPTION": POSITION K3,K21:? 

" ":GOTO 5488 

RF 5468 IF PEEKCK53279I=K6 THEN H1=S8:G0T 

5868 
TJ 5478 GOTO 5448 
CC 5488 POKE K764,Ke 

KO 5498 POSITION K16,K21:? "a r" 

JF 5588 P8SITI0N K16,K22:? "13311" 

LB 5518 IF PEEKCK764)=K6 THEN POSITION Kl 

6,K22:? "DATE"; POSITION K16,K21:? " 

-":GOTO 5418 
CR 5528 IF PEEK{K7e4)=K7 THEN POSITION Kl 

6,K22:? "DATE": POSITION K16,K21:? "— 

-":GOTO 5558 
SV 5538 IF PEEKtK53279)=K6 THEN M1=30:M2= 

K6:G8T0 5888 
SB 5548 GOTO 5518 
BV 5558 POKE K764,Ke 

AN 5568 POSITION K22,K21:? "a r" 

II 5578 POSITION K22,K22:? "UMMEOIS" 
VG 5588 IF PEEKCK764)=K6 THEN POSITION K2 

2,K22:? "ID NUMBER": POSITION K22,K21:? 

" ":GOTO 5488 

HE 5598 IF PEEKCK7e4]=K7 THEN POSITION K2 



2,K22:? "ID NUMBER": POSITION K22,K21:? 

" ":60T0 5628 

SC 5688 IF PEEKCK53279}=K6 THEN M1=24:G0T 

5860 
VH 5618 GOTO 5588 
BO 5628 POKE K764,Ke 

JH 5638 POSITION K33,K21:? "i r" 

MF 5640 POSITION K33,K22:? "HiED" 

YE 5658 IF PEEKCK764]=K6 THEN POSITION K3 

3,K22:? "COST": POSITION K33,K21:? "— 

-":GOTO 5558 
IK 5668 IF PEEKtK764)=K7 THEN POSITION K3 

3,K22:? "COST": POSITION K33,K21:? "^— 

-":GOTO 5418 
FE 5678 IF PEEKtK532791=K6 THEN M1=K9:G0T 

5060 
VB 5688 GOTO 5658 _—.-««——. 

BH 5698 POSITION K3,K1:? "0339001333333!]" 
AR 5708 RETURN 
ZY 5718 INIT=INIT+K1 
PD 5728 IF INIT>K1 THEN 5828 
UA 5738 ? CHRS (125 J: POSITION K6,Kie:? "IN 

ITIALIZING... PLEASE HAIT":FOR I=K1 TO 

188: NEXT I 
PD 5748 X5=PEEK (559): POKE 559,8 
UL 5750 RESTORE 5980: FOR N=Ke TO 99: READ 

X:POKE 1664tN,X:NEXT N 
VE 5768 C0LTAB=1712:LUMTAB=C0LTAB+24 
JN 5778 REM START COUNTER AND RESET EUERY 

VBI 
PI 5788 X=USR(1693} 

AA 5798 REN TELL ANTIC NHERE DLI CODE IS 
SF 5888 PSKE 512, 128: POKE 513, K6 
NL 5828 REN NON SET INTERRUPT BITS 
JY 5838 DSTART=PEEK(568)«256«PEEK(561) 
FE 5840 FOR N=DSTART+K6 TO DSTART4K28 
PF 5858 POKE N, 138: NEXT N 
NT 5878 REM SET DLI BIT ON FIRST LINE 
DK 5888 POKE DSTARTtK3,194 
ED 5898 REN ENABLE DLI 
OE 5988 POKE 54286, 192:PRINT "K" 
GM 5928 REM HANDLE LINE 8 AS BACKGROUND 
MF 5936 POKE K718,PEEK(C0LTAB) 
DX 5948 POKE K709,PEEK(LUMTAB) 
BR 5958 POKE 39974, 6: POKE 39976,6 
NL 5980 POKE 559,X5:RETURN 
BQ 5988 DATA 72,138,72,174,156,6.189,176 
AO 5998 DATA 6,141,18,212,141,24,288,189 
IC 6888 DATA 288,6,141,23,288,238,156,6 
NQ 6818 DATA 184,178,184,64,12,184,169,7 
YU 6815 DATA 168,168,162,6,32,92,228,96 
LV 6828 DATA 169,1,141,156,6,76,98,228 
QP 6838 DATA 4,4,4,4,4,4,4,4,4,4,4,4 
GN 6848 DATA 4,4,4,4,4,4,4,4,4,4,6,8 
LO 6858 DATA 14,14,14,14,14,14,14,14,14 
LR 6868 DATA 14,14,14,14,14,14,14,14,14 
ZQ 6878 DATA 14,14,14,14,14,14,6,8,8,8 
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BASIC Editor 

A new checker for BASIC listings 



by Clayton Walnum 



The BASIC Editor is a utility to help you enter BA- 
SIC program listings published in ANALOG Comput- 
ing. To simplify identification of errors, each program 
line is evaluated immediately after it's typed, elimi- 
nating the need for cumbersome checksum listings. 
When you've finished entering a program using BA- 
SIC Editor, you can be certain it contains no typos. 

Typing in the Editor. 

Listing 1 is the BASIC Editor. Type it in, then 
check your work with Unicheck (from issue 24, or 
the updated version in issues 31 and 39). When you 
are certain the program has been properly typed, save 
a copy to disk or cassette. 

Using tlie Editor. 

Take a look at one of the BASIC program listings 
in this issue (not the one for this program). Notice 
that each program line is preceded by a two-letter 
code. This code is the checksum for that line; it's not 
a part of the program. 

To enter a program listing from the magazine, run 
the BASIC Editor program. Your screen will be divid- 
ed into two "windows." The upper window is where 
checksum codes and program lines are entered. The 
lower window will display each line as it's being pro- 
cessed, as well as present you with various prompts 
and messages. 

When the program's waiting for input, the cursor 



will appear next to the code prompt. Type the code 
that precedes the line you're working on and press 
RETURN. The cursor will then position itself at the 
left margin. Enter the program line and press RE- 
TURN. 

After you've completed your entry, the Editor will 
process the line. If the line was typed properly, it'll 
be placed into the computer's memory. If you made 
an error in either the code or the line, you'll hear a 
buzzer and the screen will turn red. Check your work 
in the lower window. When you identify your mis- 
take, re-enter both the code and the line. 

Leaving the Editor. 

You may leave the Editor at any time, by entering 
(at the code prompt) either Q for quit or B for BA- 
SIC. If you type Q, the Editor will ask if you wish 
to save to disk or cassette. Follow the prompts to save 
your work. 

If you type B, the Editor will immediately return 
you to BASIC. Enter LIST to review your work. Note 
that Line and Lines 32602 through 32694 are the 
Editor program. Your lines fall between. 

To return to the Editor, type RUN. 

The B command can be handy if you should ac- 
cidentally press the CLEAR key, or in some other way 
change the screen display. Just return to BASIC and 
rerun the program. 

Large listings. 

If the program you're entering is particularly long, 
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BASIC Editor 



continued 



you may need to take a break. When you want to stop, 
type Q for the code entry, then follow the instruc- 
tions for saving your work. When you're ready to be- 
gin again, load the BASIC Editor, then retrieve your 
work with the command ENTER "D; FILENAME. 
EXT" where FILENAME. EXT is the filename you 
saved the file under. 

If you're using a cassette system, you should sub- 
stitute ENTER "C:" for the above command. 

If you've forgotten where you left off, list the pro- 
gram to the screen. The last line you typed will be 
immediately before Line 32602. 

Another problem inherent in the typing of espe- 
cially large programs is that there may not be enough 
room in memory for both the Editor and the program 
you're typing. In this case, you should type the list- 
ing in two parts, saving each under a different file- 
name, then combine them into a single program as 
instructed below. 

Ready to go. 

When you've finished typing a listing, save it with 
the Q command, then, when the Editor has returned 
you to BASIC, type NEW and press RETURN. You 
may then load the finished program with the ENTER 
command and run it. If you'd like the program to load 
faster, resave it with the SAVE command. 

Because of the program size, you may have been 
forced to type it in two portions. Before you can rim 
it, the two files must be combined. To do this, clear 
memory with the NEW command, then ENTER both 
segments into memory and resave the combined re- 
suh. 

Murphy's Law. 

Anyone who's been associated with computing 
knows that there's no industry where Mvirphy is more 
prevalent. You may find that, after typing a program, 
it still won't run. There are two likely causes for this. 

First, it may be that you aren't following the pro- 
gram's instructions properly. Always read the article 
accompanying a program before attempting to run 
it. Failure to do so may present you with upsetting 
results. 

Finally, although you can trust BASIC Editor to 
catch your typos, it can't tell you if you've skipped 
some lines entirely. If your program won't run, make 
sure you typed all of it. Missing program lines are 
guaranteed trouble. 

One last word. Some people find it an imneces- 
sary and nasty chore to type REM lines. I don't con- 
done the omission of these lines, since they may be 
referenced within the program (a bad practice, but 



not unheard of) . If you want to take chances, BASIC 
Editor is willing to comply. H 

Listing 1. 
BASIC listing. 



e GOTO 32602 

32602 DIN LSC114),Cl$C2],C2SC2),B$f38) 
,A$fl) 

32604 B$C1)=" ":B$C381=" ":BSt2J=BS 
32606 RETRII=1S5 : BACKSP=126 : E5CflPE-27 
32608 GRAPHICS 0:POKE 766,e:P0KE 752,0 
: POKE 82 , 1 : DL=PEEK 1560) 4256«PEEK C561) + 
4 

32610 POKE DL-1,70:P0KE DL+2,6:P0KE DL 
+3, 112 .'POKE DL+4, 112: POKE DL*13,112:P0 
KE DL414,112:P0KE DL+23,112 
32612 POKE DL«24, 65 SPOKE DL+25,PEEKC56 
0):POKE DL*26,PEEKC56H iPOKE 559.0 
3261 4 POSITION 20,0:? 
":P0SIT10M fl.l:' "■ 



itor 

ING HINDOM 



analog basic ed 
TYP 



fflBBHCODEI 

ME 551 



32616 POSITION O,?:? 
r;Tti^;|iy gg?|MiiMB|||^WB|M""; position i,i 
b ; V " lgi-4>HiU J AH J J.I : " ;LL 

32617 POSITION 27,16:? " iWjUl^ifiTill ; " ; CI 

32618 POKE 559,34 :POSITION 6,3:? " ";C 
HRS C30J ; : L$="" : Ll=2 : 60SUB 32648 : ClS=L$ 
32628 IF C1$="Q" THEN 32674 

32621 IF C1$="B" THEN GRAPHICS 0:END 

32622 POSITION 1,5:? " ";CHRS(30} ; :L1= 
114:G0SUB 32648 :F=0:CHKSUM=0: POKE 766, 
1 

32624 POKE 752,1: FOR X=ll TO 13:P0SITI 
ON 1,X:? B$:NEKT X:P0SITI0N 1,11 

32625 FOR X=LENCL$) TO 1 STEP -1:IF L$ 
CX,X)=" " THEN NEXT X 

32626 POP :L$=L$C1,X) 

32627 FOR X=l TO LENCL5) :F=F*1 :CHKSUM= 
CHKSUH4^F«ASC tL$ CX) ) 

32628 IF X=39 THEN POSITION 1,12 
32630 IF X=77 THEN POSITION 1,13 
32632 ? L$CX,X];:NEXT X 

32634 CHK=CHKSUH- (INT CCHKSUM/676) »676) 

: HI=INT CCHK/26) : LO=CHK- CHI»26) : C2$ CI J = 

CHRS CHI+65) : C2S C2} =CHRS f LO+65) 

32636 POKE 766,0:IF C1$<>C2S THEN 3264 

2 

32638 GRAPHICS 0:POKE 559,0:P0KE 766,1 

:P0SITI0N 1,3:? L$:POSITION 1,8:? "CON 

T":POSITION 1,0:P0KE 842,13:ST0P 

32640 POKE 842,12 :LL=UAL (L$} :GOTO 3260 

8 

32642 POKE 710,5e:S0UND 0,75,12,8 :F0R 

X=l TO 4e:NEXT X:SOUND 0,0,0,0 

32644 POSITION 6,3:? L5="" 

32646 FOR X=5 TO 7:P0SITI0N 1,X:? B$:N 

EXT X:POKE 752,0:P0SITI0N 37,16:? Cl$: 

GOTO 32618 

32648 L=0 

32650 GOSUB 32690: IF fA=RETRN OR A=BAC 

KSP) AND L=0 THEN 32650 

32652 IF A=RETRN THEN RETURN 

32654 IF A=BACKSP THEN 32666 

32656 IF A=ESCAPE THEN ? CHR$(A) ; :GOTO 

32650 
32658 L=L41:IF L>L1 THEN RETURN 
32660 IF L>38 AND L<76 THEN POSITION L 
-IHTCL/38J»38,6 

32662 IF L>76 AND L<114 THEN POSITION 
L-INTCL/38)«38,7 

32664 L$CL,L}=CHR$CA) :? CHRSf A) ; :GOTO 
32650 
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32666 L=L-l:IF L=37 THEM POSITION 38,5 

:? " ";CHRSC3e); :GOTO 32672 

32668 IF L=75 THEM POSITION 38,6:? " " 

;CHR$C3e);:G0T0 32672 

32678 ? CHR$CBACKSP); :IF L=8 THEM L$=" 

":GOTO 32658 

32672 L$=L$fl,LEM(L$}-l):GOTO 32658 

32674 POSITION 5,12:? •lEflSSETTE OR HIS 

K";:IHPUT L$:IF L5<>"C" AMD LS<>"D" TH 

EM 32674 

32676 IF L$-"D" THEN 32684 

32678 POSITION 1,12:? "Ready cassette 

and press RETURN" :GOSUB 32698 

32688 LIST "C :", 1,32688 :GOTO 32688 

32684 POSITION 8,12:? "FILENAME tD:FIL 
ENAME . EXT) " ; CHR$ (38) ; CHR$ 138) ; CHR$ ( 
38); : INPUT L$ 

32685 TRAP 32686 :8PEN ttl,4,8,L5:CL0SE 
ttl:GDTO 32692 



32686 LIST LS, 1,32688 
32688 GRAPHICS 8: END 



32698 ePEN tll,4,8,"K :":GET ttl,A:CLOSE 

ttl: RETURN 

32692 ? "QFILE ALREADY EXISTS!":? "ERA 

SE IT";:INPUT A$:TRAP 32692:IF AS="V" 

THEN 32686 

32694 F8R X=12 TO 15:P0SITI0N 8,X:? B$ 

:NEXT X:GOTO 32684 



CHECKSUM DATA. 

(see beginning of article) 



8 DATA 631,516,471,883,337,442,749,774 
,786,259,213,171,723,448,136,7539 
32625 DATA 226,666,338,98,79,988,32,53 
6,199,881,116,937,853,383,924,7888 
32652 DATA 985,856,492,114,614,686,323 
,698,1,39,72,489,146,339,234,6888 
32684 DATA 964,121,568,976,936,38,191, 
3786 




• 3-D Scrolling flrcode Sti/le Graphics 

' Select ^lour own difficult^i level 

' Choose from Color or Bloch/LUhite disploi/ options. 

' Pause Feature ollouis i^ou to freeze the gome. 

' OT6NSIV6 Flfi6POlU6R IDITH lOm flutomotic Connon ond 2.75in Rocl^ets. 

MISSION OBJ6CTIV6: Fli^ from your aircraft carrier across hostile enemy 

territory, land at the embassy to rescue the hostages, then fly bock to the 

carrier. Beiuore of surface to air missies and enemy aircroft. 

To order. Send check or money order for $1 5.00 (TX res. odd 1 S%) 

C.O.D.'s accepted. Coll (71 3) 454-5285 ORION SOfTLUflRf 



CIRCLE #113 ON READER SERVICE CARD 



1 7303 Glenheuj fid. 
Humble, Texas 77396 



SOUTHERN SOFTWARE 

YOUR ATARI SOURCE 

205-956-0986 

24 HOUR PHONE 

CALL OR WRITE FOR FREE CATALOG 

NOTICE! NOTICE! NOTICE! 

WE WILL MEET OR BEAT ANY VERIFED PRICE ON 
MOST ATARI PRODUCTS & RELATED MERCHANDISE 
INCLUDING SOFTWARE A THIRD PARTY PRODUCTS 

ALL SOFTWARE 30% OFF LIST PRICE 

OVER 1000 TITLES MCLUDEO CALL FOR PRICMG 

1040'S IN STOCK - NO MAIL ORDER 



HAPPY PRODUCTS 

HAPPY 1060 132.06 

HAPPY 810 137.96 

WARP SPEED DOS XL 24.95 

lOeO CONHtOLLER 39.95 

ICO PRODUCTS 

U.S.DOUBLER 49.96 

R-TNE CARTRDQE 49 . 95 

PR. CONNECTION 59.95 

RAMBO XL 25eK UPGRADE 39.96 

CHr/ARCMVER I 79 . 95 

HAPPY ARCHIVER 39 . 95 

SPARTA DOS CONST SET . 29 . 95 

SPARTA DOS 3.2 UPDATE 14.95 

CDY PRODUCTS 

SKOHMMON 39.95 

SK OMMVEW 39 95 

OMNMON PKKSY-BACK 59 95 



DIGITAL DEVICES 

UPRMT 49.95 

UPRKT leK 69.96 

UPRMT 64K 89.95 

tM:ALL 34.95 

APE-FACE 44.96 



NEWELL WDUSTRCS 




2S<K UPGRADE 


69 95 


RAMROD BOARD 


34 »5 


RAMROD W/OS 


69 95 


ATARI REPAIR 




SSO NTERFACE 


49.95 


130 XE 


79 96 


ATARI PRWTER 


79 96 


1060 DISK DRIVE 


69 95 


POWER SUPPLY 


12.95 


520 ST PRODUCTS 


CALL 



ADO *S FOR SHIVMG AND INSURANCE . MOST ORDERS SHPPED 

SAMEDAY. ADO 10% FOR COD. FOREIGN ORDERS WELCOME 

WITH SUFFICSNT POSTAGE NCLUDED . ALL PRICES ARE FOR MAI 

ORDER ONLY . ALABAMA RESOENTS ADD 7% SALES TAX . 

SOUTHERN SOFTWARE 

1879 RUFFMER ROAD BIRMINGHAM, AL 35210 
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THE 



Premier Word Processing 






Package 



-CKU^\ML COMPUTING 



<$^> "-< 



"PaperClip is easy to use, yet offers the advanced features of programs designed for the IBM PC. These include: block move? 

copy, delete, macros, automatic page numbering, headers, footers, underlining, boldface, super and subscripts, variable . 

character pitch, and custom character sets. The editing screen can be set up to 130 columns wide, & text can be scrolled in any 

direction. A preview mode displays formatted text exactly as it will appear on the printed page. You may further define your 

own formatting parameters, including, margins, line lengths, page length and spacing. 
PaperClip contains over 30 printer files for all the current major models. The documentation is excellent and the disk itself un- 
protected, though keyed through a joystick port. This means you can make as many back-up copies as you like, but can use the 

program only when the key is inserted." -CREAI/VE COMPUTING 

"PaperClip is one of the easiest of the professional word processors to use, with a sensible 
manual and plenty of aids for the accident-prone." COMPUTING NOW 

"a "must have" in an ideal software-library" ELECTRONIC LEARNING 

"PaperClip is the Cadillac of word processors" OMNI 

"an excellent full-featured word processor" THE BOOK OF COi 

"So clearly superior, ...State-of-the-art word processing" ANTIC "...mo 

"the ultimate word processor. . ." ANALOG 
"...best professional word processor available" RUN 
"exceptional word processing" INPUT "hard to beat" AC 
"You'll find yourself growing spoiled." FAMILY COMPUTING 
"A superb word processor, ...the most sophisticated to date''^ 
". . .does exactly what it was intended to do. . .and more". 
"... most powerful of packages " COMMODORE MAGAZINE ^ ^^ . 

"...facts attest to its excellence!" FAMILY COMPUTING 






SPEC1M0NSCBEB> 
"\MORD SEARCH'. 



"You will not find a word processing package superior to this onel 
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RperCIip 

The §\ Best Selling Word Processing Package 

' BILLBOARD'S COMPUTER SOFTWARE CHARTS' 

Available for Commodore 64, Pet, all Atari home computers, and new enhanced 128K versions for Apple ll/e/c. 

Atari 1 30XE and Commodore 128. COMING SOON: Paperclip Elite for IBM MS DOS, Amiga and Atari ST 



9f 



30 Mural street 
Rictimond Hill, Ontario 
LAB IBS Canada 
IA16IB81-9941 
re/ex 06-986-266 



<! 




INCLUDeD^ 



•The Energized Software Company!" 

WRITE TO US FOR FULL COLOR CATALOG of our products for Commodore, Atari, Macintosh, Apple and IBM systems 



I7B7S Sky Park f^orth, 
Suite P, Irvine, California 
USA 927)4 
14161 8B1-9B16 
Telex: S09I39 



FOR TECHNICAL SUPPOBI OR P«0»UCI INFOB««TIO« PLEASE PHONE |416| 881-9B16 ^ 1986 BATTERIES INCLOOEO MACINTOSH APPLE, ATABI, CONINIOOOBE A«0 IB«I ABE RECISTEREO TRADEMARKS RESPECTIIELY OF APPLE COMPOIERS INC.. ATARI INC.. CONINIOOORE 
BUSINESS MACHINES INC ANO IBM BOSINESS MACHINES INC 'AS COMPILEO FROM NATIONAL RETAIL STORE SALES BEPOBTS FOB *EEK ENOING JANUARY 5, 1965. IF YOU YIOOLD LIKE TO UPOBAOE 10 THE NEW SPEILPACK YEBSION SENO US YOOB ORIGINAL DISK PLUS 
S15 00 IF YOU CAN I FINO PAPERCLIP AT YOOR FAVOURITE SOFTWARE OUTLET YOO CAN OBOER OIRECT FROM OS AT THE FULL SUGGESTEO LIST PRICE IPLOS S5 00 FOR POSTAGE ANO SHIPPINGI 8Y CALLING |. 800.367-5707. ATABI i APPLE PAPERCLIP S59.95 PAPEBCLIP II 

FOB THE CI 28 S79.95 ALL PRICES SHOWN ARE IN U.S. DOLLARS. 



GRIFFIN'S 
LAIR 



Educational Programs 
Review 
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by Braden E. Griffin, M.D. 

A very learned man was heard to say 
that we learn little from our successes; 
the only things in life that teach us any- 
thing are affliction and suffering. Pret- 
ty heady stuff. That being the case, 
those who suffer through these reviews 
must consider me some sort of guru. 

This month I will review two pro- 
grams based on classics — one, a classic 
concept; the other, a classic story. Each 
has initiated considerable cerebration in 
young and old, along with countless 
hours of joy. No suffering here — so who's 
griping? 

Both offerings this time are for the ST. 
Fear not that I've jumped on the ST 
bandwagon, ignoring the old guard. 
Nay, nay. However, the appearance of 
quasi-educational software for the ST 
(after months of waiting) has me a little 
excited. Griffin's Lair will continue to 
review programs for the entire Atari se- 
ries; it's remaining in the normal pages 
of ANALOG Computing 

WORD FOR WORD 

BAY VIEW SOFTWARE 

177 Webster Street, Suite A-29S 

Monterey, CA 93940 

520ST $39.95 

Word Car Word is described as a com- 
puter crossword game. As I began read- 



ing the instructions (remember, I'm one 
of those compulsive types) . . . Anyway, 
as I began reading the instructions, a fa- 
miliar chord rang through. This was a 
version of computer Scrabble^". Of 
course, the authors can't say it's just like 
Scrabble, probably because of copyright 
laws, etc. Consequently, a seemingly in- 
ordinate amount of space explaining the 
basic rules of the game is necessary. 

All the well-known aspects of Scrab- 
ble are included. Differing point values 
for the letters, double and triple letter 
scores, double word scores, exchange of 
letters, and challenging words are all 
part of this game. The mouse is used to 
travel about the playing screen, and 
words are entered via the keyboard. The 
appropriate input is quick and simple, 
and design of the various screens facili- 
tates play. 

The main playing screen has the game 
board on the left and the playing area 
on the right. A player's six letters are dis- 
played at the top of the playing area. Op- 
tion boxes immediately below allow one 
to "hide" letters from opponents, as well 
as shuffle the order of the letters. 

One may also rearrange individual let- 
ters by dragging them on top of one an- 
other and inserting them where desired, 
by clicking the mouse. This is very help- 
ful, as we all remember from playing the 
original board game. 

Beneath the option boxes is the space 



where a word to be entered is typed in. 
Then the direction (horizontal or verti- 
cal) is selected. Finally, a pointer is 
moved onto the game board and placed 
in the square where the word is to start. 

After a word is entered on the game 
board screen, it may be challenged. 
Once challenged, it must be looked up 
in one's own reference source. If it is a 
real word, the appropriate button is 
clicked, and the challenger loses his next 
turn. If it's not found to be a real word, 
then the player receives a score of 0. 

At the end of the game, unused let- 
ters count against each player. If all of 
a player's letters are used, then the 
source is increased by the value of the 
opponent's unplayed letters. Sounds just 
like the real thing. 

The game is designed to be played 
against one, two, or three other players. 
Any or all of these may be a computer 
opponent. There's always someone to 
play against. 

Let me warn you though, the compu- 
ter is tough. I don't know how large its 
vocabulary is, but the systematic way the 
computer sorts through a quite extensive 
list of words to select the one with the 
highest point value makes for a worthy 
opponent. 

If there were no more to the game than 
this, it would have been just fine, but 
there is a lot more. Several pull-down 
menus are available throughout, to fur- 
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Software Discounters 

of America open Saturday 



For Orders Only— 1-800-225-7638 
PA Orders— 1-800-223-7784 
Customer Service 412-361-5291 



Open Saturday ^ 

• Free shipping on orders over SlO( 
continental USA 

• No surcharge for VISA/MasterCar 

• Your card is not charged until we 



ACADEMY 

Typing Tutor 520ST ... $23 
ACCOLADE 

Fight Night (D) $19 

Hardball (D) $19 

ACTIVISION 

Borrowed Ti me 520ST . $33 

Great American Cross 

Country Road Race (D) . $16 

Hacker (D) $16 

Hacker 520ST $29 

Master of the Lamps(D) . $16 

Mindshadow(D) $16 

Mindshadow520ST $33 

IVtusic Studio 520ST. . .$39 

Space Shuttle(D) $16 

AMERICAN EDUCATIONAL 
COMPUTER 

Biology (D) $14 

French (D) $14 

Grammar (D) $14 

Science: Grades 3M(D) $14 
Science: Grades 5/6 (D) $14 
Science: Grades 7(8 (D) $14 

Spanish (D) $14 

U.S. Geography (D) $14 

U.S. History (D) $14 

World Geography (D) ... $14 
ARTWORX 

Bridge4.0(D) $16 

Bridge 520ST $19 

Compubridge520ST . . $19 

Hotel Alien (D) $9 

Strip Poker (0) $21 

Strip Poker 520ST Call 

Female Data Disk 1 . . . $16 

Male Data Disk 2 $16 

Female Data Disk 3 . . $16 
AVALON HILL 
Computer Title Bout (D) . $19 
Jupiter Mission 1999(D) $33 

Panzer Jagd(D) $19 

T.A.C. (D) $26 

BATTERIES INCLUDED 

B-Graph(D) $25 

Degas 520ST $25 

Home Pak(D) $33 

Paperclip (D) $39 

Paperclip Elite ST Call 

BRODERBUND 

Bank St. Writer (D) $33 

Championship 

Loderunner(D) $19 

Karaleka(D) $19 

Print Shop(D) $26 

Print Shop Graphics 

Library #1,»2. #3 (D)$16Ea. 

PS Paper Refill $14 

CBS 

Addition/Subl.(D) $16 

Big Bird's Spc. 

Delivery (R) $7 

Or.Seuss Puzzler (D) $7 

Decimals: Add/Subt(D) $16 
Decimals: Mult/Div(D) . $16 
Ernie's Magic Shapes (R) . .$7 
Fractions: Add/Subl(D) $16 
Fractions: Mult/Div(D). $16 

Math Mileage (R) $7 

Mult/Div(D) $16 

Timebound(R) $7 

Webster Word Game (D) $7 
CONTINENTAUARRAYS 
Home Accountant (D) .$39 
Book of Adv. 

Games II $16 

DATASOFT 

Alternate Reality (D) . $26 

Bruce Lee(D) $19 

Mind Pursuil(D) $19 

Never Ending Story (D) $19 
TheGoonies $19 



Zorro(D) $19 

DAVIDSON 

Math Blaster (D) $33 

Spell It (D) $33 

Word Attack (D) $33 

DESIGNWARE 

All Titles Available . . . Call 

ELECTRONIC ARTS 

Archon (D) 

Archon 2 (D) 

Financial Cookbook 520ST 

Movie Maker (D) 

Music Const. Set (D) 

One-on-One (D) 

Pinball Const. Set (D) 

Racing Destruction Set (D) 

Realm of 

Impossibility (D) 
Seven Cities of Gold (D) 
Super Boulder Dash (D) 
Prices too low to 

adtertise! ! Call 



Computer Almanac 520ST $23 
Hippo Disk Utilities 520ST $33 
Hippo Ram Disk 520ST $23 
Jokes & Quotes 

(not for Kids)520ST . .$23 
ICD 

PR. Connection Call 

RamboXL $37 

US Doublet $49 

INFOCOM 

Ballyhoo (D) $25 

Cutthroats (D) $23 

Deadline (D) $29 

Enchanter (D) $23 

Hitchhiker's Guide 

to the Galaxy (D) $23 

Infidel (D) $25 

Planelfall(D) $23 

Seastalker(D) $23 

Sorcerer (D) $25 

Spellbreaker(D) $29 

Starcross(D) $29 



Flip Side 520ST $25 

Gold Runner 520ST ... $25 

M-Disk520ST $25 

Mi-Dupe 520ST $19 

Mi-Term 520ST $33 

Mudpies520ST $25 

Soft Spool 520ST $25 

Time Bandit 520ST $33 

MICROLEAGUE 

Baseball (D) $25 

General Manager(D) ...$25 

1985 Team Data Disk (D) $16 

MICROPROSE 

Crusade in Europe (D) ..$25 

F15 Strike Eagle (D) . . . .$23 

Kennedy Approach (D) . . $23 

Silent Service (0) $23 

Silent Service 520ST . . $26 

MINDSCAPE 

Bank SI. Music Writer (D) $26 

Brataccus 520ST $33 

Crossword Magic(D) ...$33 



Personal Disk 

Kit520ST $25 

Personal Pascal 520ST . $49 
Personal Prologue 520ST Call 
Writer's Tool w/ 

Spell Checker (R) $44 

ORIGIN 

Ultima 3(D) $34 

Ultima 4(D) $39 

PEACHTREE 

Acct. Payables (D) $39 

Acct. Receivables (D). . .$39 

General Ledger (D) $39 

PENGUIN/POLARWARE 
Crimson Crown 520ST . . $25 

Oo-Topos 520ST $25 

Sword of Kadash 520ST . $25 
The Coveted Mirror 520ST $25 
Transylvania 520ST . . . .$25 
PRECISION 
Superscript w/Spell 

Checker XL/XE(D) . . $49 



Sakcii 
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SC-100 

* mon/lor cab/es available lor "7. 

The SC-100 is designed to work with Apple, Atari, Commodore, IBM 
PCjr and other personal computers. Includes audio speaker and 
standard earphone jack; provides the most vibrant brilliant colors; 
tested, proven, and rated as the best color monitor available. 

List ^299^^ Madness Price M49°° 

Sold to the first 85 customers 



EPYX 

Ballbla2er(D) $25 

Jumpman Jr. (R) $9 

KoronisRift(D) $25 

Pitstop2(D) $25 

Rescue on Fractalus (D) $25 
Temple of Apshai 

Trilogy (D) $25 

The Eidolon (D) $25 

FIREBIRD 

The Pawn 520ST $29 

FIRST STAR 

Spyvs Spy(D) $19 

Spy vs. Spy 2(D) $19 

FTL/SOFTWARE HEAVEN 

Sundog620ST $25 

GAMESTAR 

Baseball (D) $16 

Football (0) $16 

On Track Racing (D) $16 

HABA SYSTEMS 

Check Minder 520ST . $39 

Haba Vue 520ST $39 

Phone Book 520ST $39 

HAYDEN 

Sargon3(D) $33 

HBJ 

Computer SAT (D) .... $49 

HIPPOPOTAMUS 

Backgammon 520ST . . .$25 



Suspect (D) $25 

Suspended (D) $29 

Wishbringer(D) $23 

Witness (0) $23 

Zork 1 (D) $23 

Zork2or3(D) $25 

* All titles in stock for 

520 ST— Call for prices 

KOALA 

Light Pen w/Painter{D) $35 

Touch Tablet 

w/Painler(D) $29.95 

LJK 

Data Perfect (D) $33 

Letter Perfect (D) . .$33 

Spell Perfect (D) $29 

LEARNING COMPANY 

Bumble Games (D) $25 

Colorasaurus(D) $19 

Magic Spells (D) $23 

Reader Rabbit (D) $23 

Word Spinner (D) $23 

MARK OF THE UNICORN 

Hex520ST $25 

PC Intercomm 520ST . . $79 
The Final Word 520ST $95 
MICHTRON 
Bulletin Board 

System 520ST $33 

Calendar 520ST $19 



Halley Project (D) $19 

Tinka's Mazes (D) $9 

Tink's Adventure (D) $9 

Tonk in the Land of 

Buddy-Bols(D) $9 

MIRAGE CONCEPTS 

Atari ST Tool 

Box Vol. 1 $23 

Forth 520ST $33 

H & D Base $65 

MISC. 

Abacus Books 520ST ..Call 

Dragonridersof Pern(D) .$9 

Gorf(R) $7 

Hard Hat Mack (D) $9 

Miner 2049'er(R) $7 

Omnitrend Universe $59 
Omnitrend Universe 2 ST .$49 

Popeye(R) $9 

ST Talk $12 

Wizard of WorlDI $7 

OSS 

Action (R) $49 

Action Tool Kit (D) $19 

Basic XE(R) $49 

Basic XL (R) $39 

Basic XL Tool Kil(D) . $19 

MAC 65 (R) $49 

MAC 65 Tool Kit (D) . . $19 



PROFESSIONAL 
SOFTWARE 

Fleet System 2 WP w/70.(XX) 
Word Spell Checker (D) $39 
PRYORITY 

Forbidden Quest 520ST . $25 
QUICKVIEW 

Zoom Racks 520ST .... $49 
REGENT 

Regent Base 520ST . . Call 
Regent Word 520ST ... $33 
Regent Spell 520ST . . . . $33 
SCARBOROUGH 

Mastertype(D) $23 

Net Worth (D) $44 

SIERRA ON LINE 

Black Cauldron 520ST . . $25 

Kings Quest 2 520ST . . $33 

Ultima 1(D) $23 

Ultima2(D) $37 

Ultima 2 520ST $39 

Winnie the Pooh 520ST $19 

SPINNAKER 

Adventure Creator (R) ...$9 

Alphabet Zoo (R) $9 

Cosmic Combat (R) $9 

Delta Drawing (R) $9 

Pacemaker (R) $9 

Fraction Fever (R) $9 

Homework Helper 520ST . $33 
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Kung Fu-Explodtng 

Fist520ST $33 

Letter Scrambler (R) $9 

Story Machine (R) $9 

SSI 

Battalion Commander (D) . $25 
Battle of Antietam(D) . $33 
Breakthrough in the 

Ardennes (D) $37 

Carrier Force (D) $37 

Colonial Conquest(D) ..$25 

Combat Leader (D) $25 

Computer Ambush (D) . . $37 
Computer Baseball(D) . $25 

Computer QB(D) $25 

Field of Fire (D) $25 

Gemstone Warrior (D) ..$23 
Imperium Galactum(D) .$25 

Kampfgruppe(D) $37 

Questron(D) $33 

NAM(D) $25 

Panzer Grenadier (D) ...$25 

Reforger'88(D) $37 

Six-Gun Shootout (D) . . . $25 

U.S.A.A.F.(D) $37 

War In Russia (D) $49 

SUBLOGIC 

Flight Simulator 2(D). . $32 

SYNAPSE 

Essex (need 2 drives) . .$25 

Lode Runner's 

Rescue (D) $19 

Mindwheel (need 2 drives) $25 

Syn-Calc(D) $33 

Syn-File(D) $33 

TELLARIUM 

Amazon 520ST $33 

Fahrenheit 451 520ST ..$33 
Nine Princes in 

Amber 520ST $33 

TIMEWORKS 

Data Manager 520ST . . Call 

Swiftcalc520ST Call 

Sylvia Porter's Personal 

Fin. Planner 520ST Call 
Word Writer 520ST . . Call 
TRONIX 

S.A.M.(D) $39 

UNISON WORLD 

Print Master 520ST $26 

VIP TECHNOLOGIES 

VIP Professional 520ST Call 

VIP Prof. Lite 520ST $65 

WEEKLY READER 
StickybearABC's(D) . . $19 
Stickybear Numbers (D). $19 
StickybearOpposites(D) $19 
XLENT 

Megafont(D) $19 

Page Designer (D) $23 

Rubber Stamp (D) $23 

$23 
$26 



Typesetter (D) 

Typesetter 520ST 

ACCESSORIES 

Ape Face Printer Int . . $44 

Astra Disk Drives Call 

Bonus SS.DD $6.99Bx 

Bonus DS. DD $7.99Bx 

Bulk Disks SS.DD. .$59./100 
CompuServe Starter Kit $19 
Disk Case (Holds 50) . $9 
Dows Jones News 

Retrieval Kit(5hrs.) . $14 

Kraft Joystick $9 

MPP300ST Modem $79 

MPP1000E Modem . Cheap 
MPP1 150 Printer Int. . $47 
Microprint Printer Int .$37 
Quantum Micro 300/1200 

520 ST Modem $159 

WicoBoss $12 

Wico Bat Handle $17 



P.O. BOX 111327— DEPT. AN— BLAWNOX, PA 15238 



•Ordering and Terms: Orders with cashier check or money order shipped immedialel/. Personal/company checks, allow 3 weeks clearance No C O D s. Shipping: Continental 
U.S.A.— Orders under $100 add $3; free shipping on orders over $100. PA residents add 6% sales tax. AK, HI, FPO-APO— add $5 on all orders. Sorry — no International orders 
Defective merchandise will be replaced with same merchandise Other returns subject to a 15% restockmg charge — NO CREDITS! Return must tiave authorization number 
(412) 361 5291 Prices subject to change without notice MODEM OWNERS: Type Go SDA on CompuServe's Electronic Mall to see our On-Line Catalog of over 700 software 
titles for Atari, Commodore & Apple. Pius our new Bargain Basement Shoppe with great Software values under $10 Go SDA Now' 
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GRIFFIN'S LAIR continued 



ther enhance playing. These include a 
desk menu, which makes available any 
desk accessory listed for use with one's 
computer. 

The game menu allows one to restart 
a game, choose a new game, or make a 
new game (more on this later) . The play 
menu gives one the options of passing 
a turn, exchanging letters, or selecting 
a very helpful "assist" mode. 
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Word for Word. 

Using the assist command, the com- 
puter examines one's letters and shows 
the words they're able to form. These 
words are listed in the playing area, 
with the highest point value word at the 
top. We're also shown the coordinates 
where the first letter of the word must 
be played to receive the indicated score. 
The score menu shows each player's 
score and the number of letters remain- 
ing in that player's rack. 

The options menu contains several 
commands. One of these enables a play- 
er to hide or show the letter values on 
the letter rack and the game board. An- 
other will display the process the com- 
puter goes through as it forms its words. 
The skill level of the computer can be 
selected from beginner, intermediate or 
advanced. The time limit the computer 
has to complete its turn can also be 
selected under the options menu. 

Had enough? No? Want to design your 
own game board and save it on disk? 
You can do it. Black out squares which 
won't be playable; put in double word, 
triple letter, etc. scores wherever you 
want. Change the Vcdue of individual let- 
ters, or increase the absolute number of 
individual letters. All of this can be done 
with relative ease. 

A very thorough game manual accom- 
panies this program, and the whole 
game design is extremely user-friendly. 
The simplicity of Scrabble with com- 
puter enhancements makes this a win- 
ner Here's a game which always pro- 
vides you with a readily available (and 



quite competitive) opponent. Bay View 
Software has not only recreated a clas- 
sic board game for the computer; they've 
made it better. 

WINNIE THE POOH 

IN THE HUNDRED ACRE WOOD 

SIERRA ON-LINE, INC. 

P.O. Box 485 

Coarsegold, CA 93614 

520ST $24.95 

When I received this program from 
the staff at ANALOG Computing, I was 
concerned . . . Making a computer ad- 
venture game based on the legendary 
Pooh and his friends might, in some 
fashion, tarnish the reputation of this 
classic children's story. 

I know that Sierra's a quality compa- 
ny and has always done things with 
class, but I was still worried. Well, A. A. 
Milne can rest in peace. This adventure, 
designed for children ages seven and up, 
is simply superb. 

I've discussed the educational benefits 
of adventure games in this column be- 
fore. They provide an excellent means 
to enhance skills in reading comprehen- 
sion, problem solving, logic and map- 
ping strategies. Pooh includes these 
educational building blocks in an enter- 
taining and enjoyable environment. 

A blustery wind has come along and 
mixed up everything in the forest. The 
player must locate displaced objects and 
return them to their rightful owners. 

There are ten objects which belong to 
a particular character or in a specific 
place. Each time the game is played, a 
different group of objects must be found, 
so no two games are alike. 

Using the mouse or the keyboard, the 
player travels through the Hundred Acre 
Wood and interacts with characters by 
selecting one of the displayed options. 
One may decide to look behind the 
chest, climb the tree, talk with Kanga, 
or leave that spot and go in a specific 
direction. 

All of the possible options are dis- 
played, and the child doesn't have to 
type in commands — or figure out just 
the right way to communicate with the 
computer, as is the case with more adult 
adventure games. 

The options aren't always terribly pur- 
poseful; some allow conversations with 
the various inhabitants, but aren't criti- 
cal in achieving the final goal. For ex- 
ample, talking with Eeyore will merely 
bring forth the expected self-deprecat- 
ing ravings we all know and love so 



well. Each character is similarly devel- 
oped, as one might expect in a book. 

Being able to carry only a single ob- 
ject at a time forces the child to remem- 
ber where other found objects are locat- 
ed and to seek out specific characters. 
As the game continues, a few obstacles 
may stand in the way of easily accom- 
plishing one's goal. 

If too much time is taken redistribut- 
ing lost items, the blustery wind will re- 
turn and mix everything up again. Oc- 
casionally, a mist will come in and cov- 
er everjfthing with a thick blanket of fog. 
When this happens, the player must 
keep on walking until the fog lifts, find- 
ing himself in quite a different locale. 

All of the most-loved characters are 
included. Of course, Pooh Bear is the 
star. We also find Kanga, Roo, Piglet, 
Eeyore, Rabbit, Owl and Christopher 
Robin. 

Oh yes, we musn't forget Tigger, my 
personal favorite. That lovable, bouncy 
tiger does cause some problems. He may 
appear anywhere and, when he does, he 
bounces the player to another part of the 
forest, causing him to drop the object 
being carried. He just loves to bounce 
— after all, that's what Tiggers do best! 




Winnie the Pooh 
in the Hundred Acre Wood. 

Owl can be a big help. If an object is 
found, and one doesn't know to whom 
it belongs, take it to Owl. He'll help dis- 
cover its owner. 

All the special places of the Hundred 
Acre Wood are incorporated in the ad- 
venture. These include the Heffalump 
trap. Where the Woozle Wasn't, Roo's 
sandy pit, etc. 

The graphics are excellent, doing jus- 
tice to the original drawings by H. She- 
pard. The game manual is quite clear 
and contains a description of the charac- 
ters and places, a glossary of terms and 
additional learning activities. A game 
save feature is also available. 

Once all the items have been found 



ANALOG COMPUTING 



JUNE 1986 / PAGE 27 



K3 



GRIFFIN'S LAIR continued 



and returned, a party is held in the play- 
er's honor, at an unknown site. When 
one finds the party, a sing-along of the 
familiar "Winnie the Pooh" soon takes 
place. The musical accompaniment is as 
superb as everything else. 

This is a fun adventure and would 
win the Oscar for Best Adaptation if it 
were a movie. I was so affected by the 
mood created that I dug out the Pooh 
books and began rereading them. 

I soon found I'd been joined by my 
two, quite grown-up, teenagers. It wasn't 
long before I was reading Pooh aloud to 
the two of them, stirring the most pleas- 
ant memories. And I thought to myself, 
"Silly old Bear!" fl 

Dr. Gri/fin, as Chief of Newborn Medi- 
cine at a perinatal center, spends most 
of his time in the newborn intensive care 
ward. Off-hours, he's been using an Atari 
800 for four years. In keeping with his 
gentle profession of nurturing preemies. 
Dr. Griffin's number one game is Crush, 
Crumble, Chomp. 



Want to Subscribe? 



It's worth it. 



CALL TOLL FREE 
1-800-345-8112 

In Pennsylvania 

1-800-662-2444 



BASIC VIEW 




Where Is thai program going wrong? 
BASIC VIEW helps you locate troublesome 
bugs by showing you the step by step ex- 
ecution ol any Atari Basic program. BASIC 
VIEW traces through a listing ot your pro- 
gram In a way that Is easy to follow, easy 
on the eyes. You control the speed o( ex- 
ecution, when the program will start and 
stop, and what variables you'd like to see 
displayed as your program executes. 
•Worlcs with all Graphic Modes. 
•Separates your program's output trom the 

BASIC VIEW Llsllng Trace. 
• Does not Interfere with your Basic Programs. 
•Helps you understand programs you've 

copied from books and magazines. 
Debugging does not have to be a painful, 
frustrating experience. BASIC VIEW will 
save your time and your patience, pro- 
viding valuable help to beginners and pros. 
The cost Is minimal. You won't want to 
write another program without BASIC 
VIEW. 

Available lor alt Atari 400s, 8C0s, SOOXLs, 
and XE computers with at least 48K. BASIC 
VIEW Is only $20.00 (Illinois residents add 
11.25 for sales tax.) 

Softview Concepts 

P.O. Box 1325, Lisle, IL 60532 
For more Inio, call (312) 968-0605 

Atari l> a reglstarad trademark ol Alral Inc. __ 

CIRCLE #116 ON READER SERVICE CARD 



ATTENTION 
PROGRAMMERS! 

ANALOG Computing is interested in programs, articles, tutorials and 
hardware/software review submissions dealing with the whole line of 
Atari personal computers, including the new ST models. If you feel that 
you can write as well as you can program, then submit those articles 
and reviews that have been floating around in your head, awaiting pub- 
lication. This is your opportunity to share your knowledge with the grow- 
ing family of Atari computer owners. 

All submissions for publication, both program listings and text, should 
be provided in printed and magnetic form. Typed or printed copy of text 
is mandatory and should be in upper and lower case with double spac- 
ing. By submitting articles to ANALOG Computing, authors acknowl- 
edge that such materials, upon acceptance for publication, become the 
exclusive property of ANALOG Computing. If not accepted for publi- 
cation, the articles and/or programs will remain the property of the au- 
thor If submissions are to be returned, please supply a self-addressed, 
stamped envelope. All submissions of any kind must be accompanied 
by the author's full address and telephone number. 

Send programs to: 
Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 
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A hardware 

utility 

series 

by Lee S. Brilliant, M.D. 



Welcome back to Bits & Pieces. Last month 
we discussed, on a rather deep level, how the 
main processor of the Atari works. If you un- 
derstood that, then you understand how all computers work — right up to the biggies at the Pentagon. The only 
difference is in how big they are. 

The first computer was an abacus, created by the Chinese centuries ago. But the first electronic computers 
were developed during WWIL Until then, calculations for cannon trajectories had been done by trial and error, 
by hand, or with the help of some device (like a slide rule). As aircraft became faster, the need to calculate 
trajectories faster increased. 

The first computers were analog devices: a set of potentiometers (like the volume control on your radio) were 
tied together electrically and had calibrated scales. The desired data were "fed" to the "computer" by turning 
the dials to the right numbers. The voltage outputs were read by a voltmeter and a "result" obtained. They 
were inaccurate but fast — and good enough for government work. 

After the war, vacuum tubes were used to build computers. The first real digital computer occupied the entire 
basement of a university building and used as much power as a city block. Yet that computer, ENIAC, could 
barely do more than a pocket calculator. But, for lots of long calculations, it was faster and more accurate than 
a team of scientists working from a set of logarithm tables. 

The real basis for today's computers is an obscure branch of algebra developed by George Boole more than 
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COMPUTER EYES, capture software and 

MAGNIPRINT 11+ Only M14.95 

COMPUTER EYES/MAGNIPRINT Camera System 
A complete ready to run system for those without access to 
video equipment. This system includes Computer Eyes, Magni- 
print II + . a high quality BAV video camera, and a iO ft coaxial 
cable with appropriate conneaors. Only t299.9S 

COMPUTER EYES alone (with capture and display software 
only) $99.95 

ComputerEyesGr.9 Acquisition Software.^12 



DIGITIZE 
YOUR VOICE 

PARROT... So , 
It is being i 
professional 
in a band! 




All new sound digitalizpr and 
synthesizer fof your Atari Tired of iQw-quality mechanical sounding 
voice output? Now you can make any Atan speak in your own voice 
Tired of four tone sound? Now any Atari can play a whole orchestra 
complete with a singing choir The Parrot" digital sound synthesizer 
system lets you do all this and much more 

How It works — "The Parrot" system plugs into your joystick port and 
lets you record pure digital sound from your stereo. TV, microphone, or 
any other sound source The special Parrot software lets you play back 
this high quality sound on any Atari system with no special hardware 
needed It even lets you put this unbelievable sound right into your own 
programs, that will run on anyone's Atari It also includes digital 
sequencer software that lets you turn your Atari into a synthesizer 
comparable to those costing thousands of dollars Turn any natural 
sound into a musical instrument, or design your own custom sounds 
Imagine playing a song with the sounds of a dogs bark, a Chinese gong. 
a cars honk, your own voice, or anything ycxjr imagination can come 
up with It turns your keyboard into an organ and lets you instantly 
switch between up to nine different digital sounds, each with three full 
oaaves of notes Recording time vanes depending on available memory 
and quality level desired >bu've got to hear it to believe itllll 

THE PARROT digital input hardware and playback/synthesizer soft 
ware with sample sounds and demos 

All For Only $39.95 



Digitize your picture with 

the perfect hardware/software 

combination: COIWPUTER EYES 

andiWIAGiNiiPRIiMTIi.* 

Digitize your voice with Parrot. 

Computer Eyes lets you take any form of video input and 
saves it as a high-resolution graphics screen. >bu can use 
a video camera, VCR, TV output, video disk, other com- 
puters, etc. Now you can capture your pitture, your 
friends or any video image and show it on an Atari 
computer. Computer Eyes is an innovative slow scan 
device that connects between any standard video source 
and your Atari computer (see the review in A.N.A.LO.G. 
magazine). 

• Do a complete Hi-Res scan in under 6 seconds 

• Unique multi-scan mode provides realistic grey scale 
images in 24 seconds, and up for more detail scans. 

• Full one-year warranty on parts and \abor 

• Plugs into your Atari joystick ports and uses a 
standard video phono plug 

Now anyone can create the kind of graphics seen in this 
ad. When Computer Eyes is combined with Magniprint 
II + , you get unique capabilities that no other system can 
offer. 

• Print your pictures in up to 1 9 different sizes, including 
poster sizes several feet across 

• Print pictures with full shading for a level of realism 
even better than your TV screen 

• Take your Computer Eyes Images and modify them 
with your Koala Pad, Atari Touch Tablet, Micro 
Illustrator program, or Magniprint's special touch-up 
feature 

• VWsrks with Epson, Gemini, Panasonic, NEC, Citoh, 
and other compatible dot-matrix printers (850 interface 
or equivalent required) 

• Supports all Magnipnnt N + features 




"Magniprint II is a versatile and powerful program which will meet rrrast, 

if not all your print out needs." fl^,Al/-^^ «««r-«-7iMc 

■' ANALOG MAGAZINE 

Print vour Atari* graphics like you've never seen beforel 

The plus is in the shading — now Magniprint lets you print the highest quality reprcxJuaions of | 
your screens available anywhere, ft lets you choose the shading you want for the different colors | 
and shades on the screen. It allows you to adjust the shades white your picture is displayed on the I 
screen, so what you see is what you get Magniprint prints the shades on your standard printer I 
and paper by using specially designed dot patterns, yielding better looking output than you get I 
on your screen. i 

This new feature is perfect for printing piaures from Koaia Pad. Touch Tablet, Micro Illustrator, [ 
and others. It will amaze you when you print pictures from Computer Eyes or Strip Poker. 

Now get your pictures shaded the way you want them 

.. .1, . ^ Magniprint II is the most powerful print utility available for your computofi 
It IS iho only software that can accurately print GTI A modes with 16 shades 
''i^ZtV'°"' Pf^'^lf^HOP" Points 19 different sizes from % page lo giant wall sized posters 
Hrints across or down the page, regular or inverse, with a centenna option Works 
™^Mf,i:H ^T''°T^"'"^ ^'"^ "^^- C'"^^- EPSON, & Gemini (850 interface or equivalent 
required) Accepts your own graphics creations or those created with Graphics Master* 
Micropamter-, Fun V^ith Art* SYN Graph ". Atari Graphics Light Pen", B/tfraph". Sia^a Pad"' 
S.. ?T^ Tab el- Pamf, Strip Poker", Graphics Magic.an^ and others - Inc udes many 
^r^ " sarnple pictures - Does amazing graphics w.th your standard printer and paper 
^«r,^ feaiufs lets you modify pictures with your joystick - Add text lo y6ur pictures • dan 
convert a graphics mode 9 picture lo a graphics mode 8 one (and vce Oersa) • Allows y^u 
i?<?i S ? ® screen or any selected portion of the screen in multiple sizes - Includes 

^irr'^®." *.°' *^^y "^ • ^""'^ °'^'* "^°^«= 9' 10- a"d 11 with 16 different Shades 
Posters print along continuous sheets ot paper ^ ^ 

which are attached together when done. 40% Faster ONLyS24.95 

NOW prints text modes 0,1,2 with full Magniprint capabilities. 

FREE Wilh every l«lagniprrr>t M order g et ■■PRINTAL L' FREE PRINTALL prmls your programs and (ilea just aa th«y fl 
appear on Ihe screen. Ii clsarly prints HgJIy^f and a'l lh« Atari graphics charadors and prints i 
condensed print This alone is worth the prlc«. 
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$29.95 

Complete with instructions I 
in ttieory and use. 



i^ERSOINAlOR 



CAmWDGE TO DISK 
COPY SYSTEM 



CARTRIDGE TO DISK COPY SYSTEM Yes, for only S29.95, you 
can make working copies of all your Atari computer car- 
tridges (16K or less). Our special package will let you save 
your cartridges to ordinary disk files. They will run exaaly 
like the originals when used with the Impersonator Each 
disk holds up to 12 cartridge programs. Now you can put all 
your real cartridges away for safe keeping and use the 
Impersonator for everything. YES, IT REAaY WORKS. The 
Impersonator does everything the high-priced cartridge 
back-up systems do . . . and more. ONLY S 29.95 
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MAIL TO: Alpha Systems/4435 Mapleparl< Ri) /Stow, OH 44224 j 
Send check or money order. Include $2.00 shp & tidlg. Ohio 
residents add 5^/j% sales tax. 
LCALL. 216-374-7469 to ctiatpe lo MasterCard or VISA 

< BONUS. Order any 3 programs and get FREE your choice 
I D Deluxe Space Games D Disk Pak 1000 

(3 games on a disk) (Utility Package) I 



PRODUCTS WORK WITH ALL 



^8 Ca$$erfeDperaring 
System (COS.) 

The only cassette program you'ir ever need. 
COPIES: C.O,S. Copies all Atari® cassettes - Copies disk files 
to cassettes - Copies single boot cassettes to disk - Stores 
any cassette program to disk tor safe keeping. 
DISPLAYS: Displays any cassette program in hex, ascii. or 
converts it to a readatjie assembler language 
file. (Compatible witti Atari" assembler cartridge) 
ALTERS: Modifies the size, contents or combine and dissect 
whole programs. Modified files can be saved to disk or 
multi-stage cassette. 

Includes complete cassette tutorial. Including adding 

music to your cassette. 

All this on one disk for only $24.95 



All for your Atari Computers. Disk drlv 
48K requireci. Atari' is a registered 
trademark of Atari Corporation. 

"Denotes products net related to Alpha Systems 

ATARI 8 BIT COMPUTER SYSTEMS 



BOOK I + DISK: (The Original) Thoroughly explains the techniques 
used by advarKed software pirates, and the copy protection methods 
used lo stop them, ft offers clear and understandable explanations 
sophisticated enough for software writers of any scale yet easy 
enough for a beginner just wanting to learn more about Atari® com- 
puters. A MUST READ FOR AR AlARI® OWNERS, 
BOOK INCLUDES: • Duplicate seaorii ig • Custom disk formatting • 
Creating "BAD" seaors • Hardware data keys • Legal protection like 
copyrights, trade secrets, patents • Protecting BASIC programs • Self- 
modifying Code • ROM + EPSOM cartridges • Hidden serial numbers 

• Self-destructing programs • Freeware • Misassigned seaoring • 
Much, much more. 

DISK INCLUDES: • Direaory mover • VTOC scanner • Duplicate 
seaor finder • Seaor mover • Bad seaor writer • Seaor data displayer 

• Autorun builder • Other useful programs. 

This comprehensive book and disk package should not be confused 
with low quality imitations offered elsewhere, 
BOOK 11 + DISK II: Advanced Software Proteaion This all new sequel 
starts where the highly acclaimed Book I leaves off. Book II is the most 
up4o-date resource available for the Atari® owner. Includes reviews 
and explanations of products such as: The Happy Enhancement.* The 
ImeoSSitile," The Scanalyzer* The Chip* The Pill * and Super Pill * & 
many others. 

Book II: Tells you specifically what they copy, what they won't, how 
they are used, and the details of how they work. Book II also includes 
such topk3 as: • Transmitting protected programs • Copying disks with 
more than 19 sectors/track. Includes the newest protection methods by 
companies like Synapse* AND Elearonk: Arts* • Data erxryption • 
Phreaking methods • Program worms • Logic bombs • Bank-select 
cartridges • Random access codes • New trends in software law • 
Sample BASIC + Assembler programs • On-line security • And much 
more. 

DISK II INCLUDES: • Automatk: program proteaor • Custom format 
detertor • Newest protection demos • Forced password appender • 
Data erKrypter • And much more. 

Book + Disk Packages only $24.95 each or 
Special Offer both for only S 39.9 5 
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one hundred years ago. Called Boolean algebra, this 
form of mathematics is mostly symbolic, but trans- 
forms mathematical expressions into either true or 
false statements. Consider the following: 

A-5 

This may look like funny math, but what it says 
is simply: If A equals B, then the expression inside 
the Q marks is true. A value of 1 is given to true state- 
ments and to false ones. If B had been equal to 4, 
then (A = B} = 0. This is the way your computer works. 
Try this program. 



10 A=5:B::5 

29 C=(ft3B> 

Se PRINT C 

40 IF C THEN PRINT 

50 PRINT "FALSE" 



"TRUE": END 



1 



If you run this program, the screen will show a 
then the word TRUE. Now change Line 10 to: 

10 fl=4:B=5 
When run this time, C=0 and the computer prints 
FALSE. The complete expression IF C = l THEN is 
not necessary, because the computer assumes either 
C = or C < > 0. The beauty of this system is that 
everything is binary, either true [1] or false [0] . This 
makes if perfect for computers — which have only two 
fingers. 

Nitty Gritty. 

Let's look at some simple electric circuits. In Cir- 
cuit A of Figure 1, the light bulb only lights if the 
switch is closed. Now look at the modification in Cir- 
cuit B. 



r 



— BATTERY 
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_|_SWITCH A 
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SWITCH B 



Circuit A. 



Circuit B. 



Figure 1. 

[switch a 

SWITCH 8 



Figure 2. 

Here, the light bulb lights only if both switches are 
closed. We equate the closed switch with the value 



1 and an open switch with 0. We can now say, \j A = l 
ANB B = 1 THEN BULB ON. This looks remarkably 
like computer logic and, in fact, it is. Now look at 
Figure 2. 

Here, when either switch is closed, the bulb lights. 
In other words, IFA = lORB = l THEN BULB ON. 
Again, this is how the computer makes decisions, 
based on true or false statements. As in the previ- 
ous example, (A = B) would be evaluated as IF A = B 
THEN PRINT "TRUE". There's nothing magical about 
this type of decision making. We can substitute tran- 
sistors and other parts for the switches and light 
bulbs, to build "logic gates." 

The last question we ask is: how does the com- 
puter know whether A = B or not? Well, in binary, 5 
is 0101, and 4 is 0100. If each bit of each number is 
compared to its counterpart in the other number, 
you'll see that a match doesn't occur. 
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COMPORATOR 
IN OUT 

Figure 3. 

The computer tests these numbers with electron- 
ic comparisons which give a 1 output if both inputs 
are the same. All four comparators in turn connect 
into another gate: this time an AND gate, with four 
inputs and one output. The AND gate has a 1 out- 
put if all the inputs are also 1; that is, Input 1 AND 
Input 2 AND Input 3 AND Input 4 equal 1. 

If you know a little machine language, you can see 
this is how the CMP command works. It has either 
a 1 or result, which is stored in the Z (zero) regis- 
ter. Based on whether or not this flag is set, the 
branch commands BNE (Z cleared) or BEQ (Z set) 
are executed. These functions are built into the main 
processor and are set up by machine language com- 
mands stored in RAM. 

More history. 

In the fifties, scientists at Bell Telephone labora- 
tories developed a new device which would work like 
a vacuum tube but was solid, not hollow. From this, 
we get the term solid state. The device was the tran- 
sistor. Soon, computers were built using these much 
smaller and more energy-efficient devices. Many 
years later, several transistors were manufactured on 
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a single base, creating an entire amplifier in a single 
part. 

Not long afterwards, integrated circuits [ICs] were 
built, with many more parts combined on a single 
chip of silicon. Finally, large scale integration provid- 
ed entire computers, TVs and radios on single chips. 
Before ICs, such logic units were made up of in- 
dividual transistors on circuit boards. An 8-bit AND/ 
OR/EOR logic board alone would have been about 
the size of a 600XL computer, but now all this logic 
is included in the 6502 central processor chip as a 
small part of your computer! 



i 




BASE 



i. 



t 
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COLLECTOR 



EMITTER 



WATER VALVE 



Figure 4. — Transistor. 

Today the basic unit of electronics is the transistor. 
It can be thought of as a valve (see Figure 4). Just as 
the flow of water is controlled by a small force on a 
valve, the flow of electric current between the collec- 
tor and the emitter is proportional to the smaller volt- 
age of the base. For our purposes, two states are 
considered: full on and full off. Therefore, we either 
bias the transistor to the collector or the emitter 
voltage. 

The standard is +5 volts output in a logic 1 state, 
and groimd (or volts) in logic 0. The actual construc- 
tion is complicated, but we don't need to know too 
much about actual gate construction. We do need to 
know some standards by which these circuits work. 



GROUND 
VOLTS 
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Figure 5. — AND Gate. 

In schematics, gates are represented by special 
symbols, instead of showing individual parts. All log- 
ic gate inputs are considered to be at logic 1, unless 
they're specifically set to logic 0. Look at Figure 5. 
This shows an AND gate. 

Figure 5A shows one input at and the other at 



1, so the output is 0, because input 1 AND input 2 
are not both logic 1. Figure 5B shows both inputs at 
logic 1, so the output is 1. But, if neither input had 
been connected to either or 1, the output of the AND 
gate is still 1, because inputs are always internally 
puiJed up to +5 voJts unless specifically set to 0. 
When the output of a gate is at logic 0, it represents 
almost a short circuit to ground. 

Breadboards. 

Okay, it's time to get off of all this theoretical jim^k 
and do something useful. For many of the experi- 
ments, you'll need a general purpose cormection with 
your Atari called a "breadboard." The first thing we'll 
do is use the joystick ports as input devices and build 
a general purpose interface. 

You all know how to move monsters around the 
screen with a joystick, but how is this actually ac- 
complished, and how can it be adapted to fit your 
own needs? The joystick is nothing more than four 
switches: left, right, up and down. When you push 
the stick up, it closes the up switch. These four 
switches hook between pins 1 and ground for up, 2 
and ground for down, 3 and ground for left, and 4 
and ground for right (see Figure 6). 
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Figure 6. 

Each input line turns on or off 1 bit in memory 
location 54016. Both joysticks 1 and 2 are read from 
this location. Joystick 1 controls the first 4 bits of 
54016, and joystick 2 the last 4 bits. Since inputs to 
logic circuits are always 1 unless connected to ground 
(logic 0), then PEEK(54016] should be 255 (11111111 
in binary) when no joystick is present. 

If we place pin 1 of plug #1 at logic by shorting 
it to ground, then the first bit in 54016 is turned to 
0, and PEEK(54016) = 254 [11111110]. Note the inverse 
relationship: pin 1 is on the left, and bit is on the 
right. If we could connect all four switches to groimd, 
then PEEK(54016) = 240 [11110000). 

Joystick 2 controls the other 4 bits, and, if these 
are also grounded, then PEEK(54016)= (00000000). 
The computer reads this byte between each picture 
on the screen and transfers the value in the lower nib- 
ble to location 632, and the upper nibble to 633 as 
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a 4-bit number. You can also access these locations 
with the BASIC STICK(0] and STICK(l) commands. 

It's time now to build our interface. The parts need- 
ed are listed in the parts list. The solderless bread- 
board has a right and left half, and at the top and 
bottom of each half are two rows of connections, the 
upper pair for +5 volts and the lower pair for ground. 

The two upper rows should be connected together 
and a wire run from there to one of the red binding 
posts. The bottom two connect together, then to the 
black post. The remaining central sections are or- 
ganized into vertical rows. 



1 POWER BUS 



BLACK RED 




GROUND BUS Breadboard -RS, #276-169 '''^""^S LIST 

DB-9 temale plugs — RS. #276-1538 

(or 2 joystick cables #276-1978; cut off male end) 
Multi conductor cable — RS. #278-772 
Hook-up wire — RS. #278-1306 

Figure 7. 

Make your joystick cables by rvmning a piece of 
9 conductor cable ft-om the joystick plugs to the board. 
You'll need to strip and put solder on the bare ends, 
so that they'll push into the holes on the breadboard. 
If you've done this correctly, it should look like Fig- 
ure 7. Insert plug 1 into joystick port 1. 

Type in the following program and RUN it. 
te PRINT PEEK <548ie): GOTO 10 

The screen will print a long line of 255s. One at 
a time, insert wires into the breadboard to jump from 
joystick plug pins 1 through 4 to groimd. As you do 
this, the value displayed will decrease by the value 
of the bit set to logic 0. That is, if you short the first 
pin to ground, 254 will be displayed (255-1). 

If pin 4 is shorted to ground, it will display 247 
(pin 4 corresponds to the 8s column and 255-8= 
247) . If you program in machine, any bit can be tested 
with a BIT command or by ANDing it with the val- 
ue of the bit to be tested. Similarly, plug into port 
2 and test bits 5 through 8 (values 16 to 128). 

There's nothing to prevent you from using any kind 
of open/close switch instead of the jumper wire on 
the breadboard. For example, you could substitute 
a magnetic switch to a window or door sensor, a 
doorbell button, a switch attached to the track of your 



garage door to sense if it's open, the relay connec- 
tions of a photoelectric door alarm, or a swimming 
pool level sensor. 

Any switch device can be plugged in here as long 
as it doesn't have any power attached. A simple fur- 
nace thermostat can even let your computer know it's 
getting too hot! 

Let your imagination go wild. Solder a few feet of 
wire to each of four push buttons and press their 
leads into the breadboard instead of the jimiper wires. 
Listing 1 uses these pushbuttons on the first four 
lines. It detects the closure of each switch, senses 
which was first and, finally, records the time to re- 
sponse in sixtieths of a second. This could be the 
basis of a quiz game: flash a question on-screen, and 
the first person to respond wins that round. 

Start using your computer to sense the real world. 
Next month, we'll explore ways to control outside 
devices through our joystick interface, fl 

An Obstetrician-GynecoJogist by day, Lee Brilliant, 
M.D. turns into a hug-eyed computer monster by 
night. He started in 1983 with a TI 99/4A and rapid- 
ly moved to Atari. He's programmed on Apple, TI, 
Commodore and IBM, but prefers his old 800. He 
Joves to tear computers apart to see how they tick — 
using a scalpel! 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



Listing 1. 
BASIC listing. 



KI le C0N50L=53279: POSITION 10,18:? "PRES 

5 5TART" 
OU 20 IF PEEKCC0N50L)<>6 THEN 20 
GU 100 ? CHRSc125];"TIHING":P0KE 13,0:P0K 

E 20,0 
OH lie IF PEEK 1540161 =2SS THEN 110 
RI 120 H0LD=PEEK f 540161 -240 :TIHE=CPEEKf 20 

1 +2S6»PEEK C191 1 /60 : C0UNT=8 : ? 
JV 130 FOR PLAYER=4 TO 1 STEP -1:IF COUNT 

<=HOLO THEN H0LD=H0LD-C0UNT:C0UNT=C0UN 

T/2:G0T0 ISO 
LF 148 ? "PLftVEHII";PLftVER;" TIME:";TIME; 

" SECONDS" :C0UNT=C0UNT/2 
RH 150 NEKT PLAYER 
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CDniPUTER CREATIDHS 



YOUR ATARI 520ST SOFTWARE SUPPORT CENTER 



ACTIVtSION 

Mindshadow 34 

Borrowed Time 34 

Hacker 30 

ACADEMY 

Typing Tutor 24 

ATARI 

DB Master 39 

Antic Call for various 

programs available 

BATTERIES INCLUDED 

Degas 28 

Paperclip Elite Call 

Homepak Call 

DRAGON GROUP 
4X Forth Accelerator Call 

ELECTRIC SOFTWARE 

GST Compiler Call 

GST Macro Assembler Call 

GST Linker Call 

GEM Screen Editor Call 

ELECTRONIC ARTS 

Marble Madness Call 

Financial Cookbook Call 

HABBA 

Business Letters 29 

Wills 29 

Hippo 'C Compiler 51 

Checkminder Call 

HABA Writer Call 

Phone Book Call 

Habadisk(IOMeg) Call 

HIPPOPOTAMUS SOFTWARE 
Hippo Computer 

Almanac 25 

Hippo Jokes & Quotes 25 

Hippo ST Disk Utilities 37 

Hippo ST Hamdisk 25 

Hippospell 29 

Hipposimple 37 

Hippoart I 29 

Hippobackgammon 29 

Hippoword 29 

Hippoconcept 69 

Hippopixel 29 

Hippoclean 23 



HOLMES ft DUCKWORTH 

TooltKiK 28 

Forth 34 

H&D Base 69 

INFOCOM 

Zofkl 28 

Zorkll 31 

Zorklll 31 

Cutthroats 28 

Deadline 34 

Enchanter 26 

Hitchhiker's Guide 22 

Seastalker 28 

Sorcerer 31 

Suspect 31 

Witness 28 

Wishbringer 28 

Infidel 31 

Mind Forever 31 

Planetiall 28 

Sorceror 31 

Spellbreaker 34 

Starcross 31 

Suspended 34 

MARK OF THE UNICORN 

PC Intercom 84 

Final Word 99 

Hex 28 

METACOMCO 

Macroassembler 60 

Lattice C 129 

Meta Pascal 79 

MICHTRON 

Utilities 45 

M-Disk 28 

Mudpies 28 

Soft Spool 28 

Flip Side 28 

Calendar 22 

Mi-Term 60 

Gold Runner 28 

Time Bandit 36 

BBS 34 

MIGRAPH 
Easy Draw 105 

MINDSCAPE 

Brataccus 34 



CALL FOR PRICES AND AVAILABILITY 



MIRAGE 

Express Word Proc 34 

OASIS 

Sundog 28 

OSS 

Personal Oiskit Call 

Personal Pascal 50 

Personal Prolog Call 

OXXI 
Whiz Word Call 

PENGUIN 
Transylvania 28 

PHILON 

Compiled Basic 61 

Fortran Call 

Pascal Call 

PRVORITY 
Fortaidden Quest 28 

OMI 
ST Talk 14 

QUEST 
Cash Trader Call 

OUICKVIEW SYSTEMS 
Zoomracks 62 

SIERRA 

Kings Quest II 34 

Ultima M 41 

Winnie The Pooh Call 

SPINNAKER/TELLARIUM 
Homework Helper 

Math or Writing 351 

Farenheit451 28 

Penry Mason 28 

Treasure Island 28 

SST SYSTEMS 
Chat 17 

SUB LOGIC 

Flight Simulator Call 

Jet Call 

TDI SOFTWARE 

Modula - 2/ST Call 

Andra/ST Call 

UCSD Pascal Call 

XLENT 

Typesetter 28 

Rubber Stamp Call 




ATARI HARDWARE 

CALL FOR PRICES!! 

PACKAGE # 1 

Atari 520 STM Computer & SF 354 Disk Drive 

PACKAGE #2 

Atari 520 STM Computer, SF 314 (One Meg) 
Disk Drive & SC 1 224 RGB Color Monitor 

PACKAGE #3 

Atari 520 STM Computer, SF 314 (One Meg) 
Disk Drive, SC 1 24 Monochrome Monitor, and 
10 Meg Hard Disk 

Call for Package Prices! 

Let Us Design A System 
To Fit Your Needs!! 

ATARI PERIPHERAL PRODUCTS 

SF 354 SS/DD Disk Drive 159 

SF 314 DS/DD Disk Drive 21 9 

SM 1 24 Monochrome Monitor 1 59 

SC 1224 Color Monitor 349 



p, BEST BUY ON ..,„>p. 
*" SMALL QUANTITIES ♦ 

COLORED DISKS AS LOW AS 694: EA. - FLOPPY DISKS AS LOW AS 590 EA. 

Fully guaranteed. Includes sleeves and hub rings. DISKETTES (2 box minimum) 1 per box 



5'A" 


Black Generic Bulk 


Colored Generic Bulk 


Bulk 


SS/DD 


DS/DD 


SS/DD 


DS/DD 


20-69 


.69 ea. 


.89 ea. 


.79 ea. 


.99 ea. 


70+ 


.59 ea. 


.79 ea. 


.69 ea. 


.89 ea. 



S'A" 


Blk. Generic 


(Plaslir Hasp Innliii1i-i1| 
Colored Generic 


Bxs. (10) 


SS/DD 


SS/DD 


2-6 


8.90 


10.90 


7-1- 


7.40 


9.90 



3%" 


Verbatim 


Sony 


Sony 


Bulk/Bx. (5) 


SS/DD 


SS/DD 


DS/DD 


20-69/2-6 


1.59 ea. 


11.90 bx. 


16.90 bx. 


70-F/7-I- 


1.49 ea. 


10.90 bx. 


15.90 bx. 



To order call TOLL FREE 

1-800-824-7506 




ORDER LINE ONLY 



COMPUTER CREATIONS, Inc. : 

P.O. BOX 493 -DAYTON, OHIO 45459 
For information, order inquiries, or for Ohio orders (51 3) 435-6868 

Order Lines Open 9;00 a.m. to 8:00 p.m. Mon.-Fri.; 10a.m. to 4:00 p.m. Sat. (Eastern Standard Time). Minimum $15 per order. CO .D. (add $3.00). Please specify computer system. Call 
toll free number to verify prices and availability of product. Prices and availability are subject to change witfiout notice. We ship CO.D. to Continental U.S. addresses only! Please 
include 4% shipping on all Hardware orders (min. $4.00). Software and accessories add $300 stripping and handling in Continental U.S. Actual freight will be charged outside U.S. to 
include Canada, Alaska, Hawaii, Puerto Rico and APO. Ohio residents add 6Vi% sales tax. Canadian orders add 5% shipping, (min. $5.00), All other foreign orders, please add 1 5% 
shipping, (min. $1 0). For immediate delivery send cashier's check, money order or direct bank transfers. Personal and company checks allow 3 weeks to clear. School purchase orders 
welcome. Due to our low pnces, all sales are final. NO CREDITS. All defective returns must have a return authorization numtwr. Please call (513) 435-6868 to obtain an RA# or your 
return will not be accepted for replacement or repair. FOR YOUR PROTECTION WE CHECK FOR CREDIT CARD FRAUD. We do not bill until we ship. 
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Electroids 




by James Hague 

For years, I've been seeing *• 
clone; after clone of climbing 
and shooting arcade-style games 
that show very little originality. 
After learning assembly language. I 
believed 1 could do better. Not realiz- 
ing the enormity of the task before me, 
I set out to accomplish what only wiz- 
ards like Tom Hudson could ever achieve. 

After months of errors, bad sectors and 
everything else my Atari could throw at me 
my perseverance has been rewarded. The 
going was rough, but I'm proud to finally pre- 
sent Electroids — an original, 100% machine- 
language arcade game for one player. 

Typing it in. 

Listing 1 is the BASIC data used to create both disk 
and cassette versions of Electroids. Those readers who 
are interested in how the game works may obtain the as- 
sembly listing on either the magazine disk version or the 
ANALOG Computing TCS. 



ANALOG COMPUTING 




BBH^ 



i I. 




SUPER BUY!! 

130 XE PACKAGE 

130 XE 152K Computer, 

1050 127K Disk Drive 

1027 LQ 20 CPS Printer, 

+ 5 Pieces of Software 



'379.95 



WE CARRY A COMPLETE LINE OF SOFTWARE. 
THE FOLLOWING IS JUST A SAMPLE OF OUR PRODUCTS. 



HARDWARE/PERIPHERALS 

520 ST COMPUTER with Modulator, 
Mouse, Logo, Basic, 1 st Word and 
NEOchrome Sampler $379.35 

520 ST PACKAGE (B/W) CALL 

Computer with Modulator, Mouse, Disk 
Drive, Monochrome Monitor and 
Software (Same as above) 

520 ST PACKAGE (Color) CALL 

Same as above but with RGB 
Color Monitor 

1040 ST Computer CALL 

SF 354 Disk Drive SI 79.95 

SF 314 Disk Drive $199.95 

SC 1424 Monitor $279.00 

SC 1 224 Monitor $349.95 

SMM 804 Printer $199.95 

130 XE Computer CALL 

1050 Disk Drive CALL 

1025 Printer CALL 

1020 Printer $25.95 

XM 301 Modem $41 .00 

1010 Recorder $44.00 

410 Recorder $15.00 

ATARI EDUCATOR KIT $29.95 

Includes: 410 Recorder, Basic Cartridge 
& States and Capitols IC) 

PROGRAMMER'S KIT $19.95 

Includes; Basic Cartridge, Inside Atari 
Basic Book & Basic Language Reference Manual 

ARCADE CHAMP KIT $24.95 

Includes: 2 Joysticks, 
Pac Man IR) & Qix (R) 

BASIC TUTOR KIT $29.00 

Includes: 3 Tapes on Basic & 2 Books 

BOOKKEEPER KIT $49.00 

Includes: Numeric Keypad, Bookkeeper 
Program & Manuals 



ATARI 
POWER SUPPLIES 

$095 

LIMITED QUANTITIES 



ATARI SOFTWARE 

Atari Lab Light Module (R) $29.00 

Atari Lab Starter Kit 

w/Temp Module (R) $36.00 

Asteroids (R) $ 7.00 

Atariwriter IRI $29.00 

Atariwriter Plus (D) $39.00 

Basketball (R) $ 7.00 

Caverns of Mars (R) $12.00 

Defender IR) $ 7.00 

Dig Dug (R) $12.00 

Donkey Kong (R) $12.00 

Donkey Kong Jr. (R) $1 2.00 

Galaxian (R) $ 7.00 

Home Filing Manager (D) $24.00 

Joust IR) $12.00 

Jungle Hunt (R) $12.00 

Invitation to Programming 

Part 1 IC) $ 6.00 

Invitation to Programming 

Part 3 (CI $ 6.00 

Macro Assembler (D) $23.00 

Mickey in the Great Outdoors (D) . . . . $12.00 

Microsoft Basic II ID & Rl $21 .00 

Millipede (Rl $12.00 

Missile Command (R) $ 7.00 

Moon Patrol IR) $12.00 

Ms. Pac Man (R) $12.00 

Music Composer IR) $ 7.00 

Pac Man(R) $12.00 

Paint ID) $16.00 

Pole Position IRI $12.00 

Proofreader (D) S15.00 

Robotron: 2084 (R) $12.00 

Skywriter (R) $12.00 

Star Raiders (R) $ 7.00 

Super Breakout (Rl $ 7.00 

Timewise (D) $ 7.00 

Track & Field (R) $25.00 

VisicalclDI $21.00 

Speed Reading (C) $14.00 

Touch Typing IC) $ 7.00 

Both For Only $17.00 

My First Alphabet (D) $ 7.00 

Juggle's Rainbow (C) $ 7.00 

Both For Only $11.00 

ATARI ST. SOFTWARE 

1 st Word $39 

DB Master One $39 

2 Key Accounting CALL 

NEOchrome $39 

Home Planetarium $24 

Joust $24 

CP/M Emulator $39 
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WE CARRY A FULL LINE OF PANASONIC, STAR, EPSON, B 

OKIDATA AND LEGEND PRINTERS. CALL FOR CURRENT PRICES. m 



TEDDY RUXPIN $65.00 

GRUBBY 49.00 

The Adventure Series ea. 10.00 

FOB Plush Hand Puppet ea. 10.00 

Teddy Ruxpin Clothing starting at 10.00 



ELECTRONIC ARTS 

M.U.L.E. XE/XL $17 

Music Construction Set XE/XL $17 

Realm of Impossibility XE/XL $17 

Seven Cities of Gold XE/XL S24 

Archon XE/XL $17 

Archon II XE/XL $24 

One On One XE/XL $24 

Pinball Construction XE/XL $17 

Murder/Zinderneuf XE/XL $17 

Moviemaker XE/XL $39 

Financial Cookbook ST/XE/XL $29 

Chess Master $20 

MICROPROSE 

Decision in the Desert XE/XL $27 

F-1 5 Strike Eagle XE/XL $25 

Kennedy Approach XE/XL $25 

Solo Flight (New) XE/XL $25 

Crusade in Europe XE/XL $27 

Aerojet XE/XL $27 

Silent Services XE/XL $27 

ACTIVISION 

Borrowed Time ST/XE/XL CALL 

Hacker ST/XE/XL CALL 

Mindshadow ST/XE/XL CALL 

The Music Studio ST/XE/XL CALL 

Great Am. Cross Country 

Rd. Race XE/XL $23 

Master of the Lamps XE/XL $23 

Ghostbusters XE/XL $23 

Space Shuttle XE/XL $23 

Designer's Pencil (R) XE/XL $23 

GAME STAR 

Star Bowl Football XE/XL $19 

Star League Baseball XE/XL $19 

On Track Racing XE/XL $23 

Championship Golf IBM/ST CALL 

BATTERIES INCLUDED 

Degas ST $29 

Homepak ST/XE/XL CALL 

B/Graph XE/XL $29 

BRODERBUND 

Print Shop XE/XL $35 

Paper Refill $16 

Graphic Library I, I, III XE/XL ea. $18 

Stealth XE/XL $23 

Karateka XE/XL $24 



INFOCOM 

ALL TITLES including BALLYHOO 

AVAILABLE FOR 520 ST/XE/XL 

PRICES AS LOW AS S25 

SUBLOGIC CORP 

Flight Simulator II ST/XE/XL $39 

Jet ST CALL 

Night Mission Pinball XE/XL $24 

HABA SYSTEMS 

Haba Word ST $79 

Haba Writer ST $59 

Hippo C Compiler ST $59 

VIP TECHNOLOGIES 

The VIP Professional ST $119 

SIERRA 

King's Ouest II ST $34 

Ultima II ST $49 

Winnie the Pooh ST $34 

SPINNAKER/TELLARIUM 

Amazon ST $29 

Dragon World ST $29 

Fahrenheit 451 ST $29 

Homework Helper/Math ST $29 

Homework HelperAA/riting ST $29 

Nine Princes in Amber ST $29 

Perry Mason ST $29 

SSI 

Kampfgruppe $35 

Field of Fire $24 

Operation Market Garden $30 

Computer Quarterback $24 

Broadsides $24 

Gemstone Warrior $22 

Computer Ambush $35 

Questron $35 

Colonial Conquest $24 

Battalion Commander $35 

Panzer Grenadier $24 

Battle of Antietam $30 

U.S.A.A.F $35 

RIBBONS 

Atari 1025 (Black) $2.50 

Atari 1025 (Color $3.50 

Panasonic 1091 $8.50 

Okimate 10 (Black) $6.00 

Okimate 10 (Color) $6.00 

Star Gemini (Black) $2.50 

Star Powertype $6.00 



PQ 



SUNCOM 



Tlie Party Quiz Game 
family Learning System 

Computer Question/Answer Game 

17 



$ 



95 




LIMITED QUANTITIES 



ALL TITLES ON DISK UNLESS MARKED (R) FOR ROM CARTRIDGE 
Order Line WE CHECK FOR STOLEN VISA & MASTERCARD Customer Service 

1 onn ooo iw>'> & Ohio Residents 

1-»UU-Ztf^-UJJJ lyj.F 10 a.m.-8 p.m.; Sat. 10-3 ET 1-R1 3-879-9699 

ORDERS ONLY! Sales Personnel Do '^ 1-310 0/3 3033 

Not Have information on 37 s. Bfoad Street, Fairbom, OH 45324 

Previous Orders or Product Specs. 

SOFTWARE ONLY - Prepaid orders over S50 receive free shipping via UPS in continental U.S. Please add $2 orders under $50. HARDWARE and all 
orders requiring shipment via U.S. Post Office are subiect to additional freight charges. Add S5 for COD orders. VISA/MasterCard orders add $2 service 
charqe Ohio residents add 5,5% sales tax. Personal checks require a three-week waiting period. No waiting when paid by credit card, certified check 

, or money order. All items subject to availability and price change. PLEASE CITE AD NUMBER WHEN ORDERING. ALL RETURNS MUST BE ACCOM 

■■ PANIED BY AN AUTHORIZATION NUMBER. 
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continued 



Disk users should refer to the M/L Editor article 
on page 81 for tj^ing instructions. 

If you have a cassette system, type in Listing 1, 
then add the lines shown in Listing 2. Type RUN and 
press RETURN. The program will begin checking the 
data statements, printing the line niunbers as it goes. 
It will alert you to any problems. Fix any incorrect 
lines and rerun the program until all errors are eli- 
minated. 

When all your data lines are correct, the computer 
will beep twice and prompt you to READY CAS- 
SETTE AND PRESS RETURN. Now, insert a blank 
cassette in your recorder, press the RECORD and 
PLAY buttons simultaneously, and hit RETURN. The 
message WRITING FILE will appear, and the pro- 
gram will create a machine language boot tape ver- 
sion of Electroids, printing each data line number 
as it goes. When the READY prompt appears, the 
game is recorded and ready to play. CSAVE the BA- 
SIC program on a separate tape before continuing. 

To play the game, rewind the tape created with the 
BASIC program to the begirming. Turn the computer 
off and remove all cartridges. Press the PLAY but- 
ton on your recorder and turn on your computer, 
while holding down the START key. If you have an 
XL or XE series computer, you must hold the START 
and OPTION keys when you turn on the power. The 
computer will beep once. Hit RETURN, and Elec- 
troids will load and run automatically. 
The game. 

Electroids is a joystick-controlled game for one 
player. You must protect special "power jewels" from 
a group of attackers known as Electroids. These crea- 
tures fall from the top of the screen, attempting to 
come in contact with one of the pulsating green 
jewels at the bottom. 

If an Electroid hits one of the many floating yel- 
low platforms, it will move along the surface until 
it can again continue down. If it does manage to 
touch one of the power jewels, a short circuit will 
occur — and you'll lose five units of energy. On the 
brighter side, the Electroid which did the damage 
will be eliminated. You begin the game with fifty 
units of energy; it's over when all are lost. 

You control a small green creature which defies 
biological classification. It's known as simply the 
"Green Thing." Its job is to prevent Electroids from 
short-circuiting those power jewels located in the 
lower portion of the screen. 

The Green Thing is moved left and right along the 
yellow platforms by pushing the joystick in that direc- 
tion. If it moves off one side of the screen, it will re- 



appear on the other, and vice versa. If the Green 
Thing moves off one of the platforms, it will fall, but 
no harm will come to it (in fact, that's the only way 
to move down). 

In order to move upward, press and hold the trig- 
ger. The Green Thing will jump until the trigger's 
release, then it will fall until it hits a platform. It's 
important to note that Green Things can be moved 
left and right while falling and jumping. The Green 
Thing is quite a versatile little creature, isn't it? 




Now on to the important part. In order to stop an 
Electroid, you must touch it while it's green — when 
it's falling. This will cause the Electroid to bounce 
backwards toward the top of the screen until it hits 
a ledge, when it will again begin the suicidal descent. 

This trick will give you anywhere from 5 to 75 
points, depending on the level. If you touch an Elec- 
troid while he is red (on platforms) , energy will be 
quickly drained from your supply. When I say "quick- 
ly," I mean quickly, so watch out! 

The only part of the game that seems to confuse 
beginners is how to complete a level. A level is com- 
plete when a certain number of Electroids have been 
eliminated. 

They can be eliminated in any of three ways: (1) 
when bounced off the top of the screen, (2) when ex- 
iting from the screen through the lower left- or right- 
hand corners of the screen, or (3) when hitting a 
jewel. 

When a specific number of them have been de- 
stroyed, the computer will print LEVEL COMPLETE 
and automatically advance to the next level. After 
each level, you'll get some bonus energy (you'll need 
it). There are a total of twelve levels in the game, some 
of which contain glowing red electrodes. These will 
drain energy on contact, so be careful! 
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Electroids 



continued 



Electroids is a game which requires much prac- 
tice to master. It may take a few games to become 
proficient at controlhng the Green Thing, but it's not 
that hard. In the early boards, it's a good idea to just 
move aroimd at the top of the screen. In later levels, 
of course, that becomes impossible. 

A final note. 

Many people have the potential to program some 
great arcade games, but are convinced it's for experts 
only. I'll admit it's no piece of cake, but it isn't im- 
possible, either. Electroids was my first assembly lan- 
guage game and it turned out quite well. Maybe Kyle 
Peacock could do better, but I'm satisfied with what 
I've accomplished. I encourage others to convert their 
brainstorms into assembly language mnemonics, be- 
cause—with a little effort— you never know what 
could happen. You just might be the next Tom Hud- 
son. H 

James Hague is a senior at Berkner High School 
in Richardson, Texas. AUhough this is the first assem- 
bly language program he's written, it's not his first 
published — his Bonk program appeared in issue 35. 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 

The code is simply a double check for List- 
ing 1; it's of more use with Listing 2. 



Listing 1. 
BASIC hsting. 



FS 1900 DOTfl 255,255,0,52,13,61,32,101,22 

8,162,0,189,0,224,157,0,4867 
JT 1010 DOTfl 32,189,255,224,157,255,32,23 

2,208,241,169,32,141,244,2,189,2304 
NO 1820 DATA 39,52,157,0,32,232,224,48,20 

8,245,76,104,52,0,0,0,2220 
SD 1030 DATA 0,0,0,0,0,24,36,66,129,129,6 

6,36,24,255,187,187,5242 
HH 1040 DATA 238,238,255,0,0,124,56,124,5 

6,124,56,124,56,0,24,24,9967 
IT 1050 DATA 24,24,60,126,255,0,0,0,255,2 

55,255,255,255,72,169,0,649 
RY 1060 DATA 141,10,212,141,19,208,141,20 

,208,141,21,208,104,64,32,245,7568 
OA 1070 DATA 54,169,0.133,138,32,93,55,32 

,75,60,173,10,210,141,22,3278 
PI 1080 DATA 208,173,31,208,201,6,240,5,1 

73,132,2,208,238,169,80,133,9503 
XP 1090 DATA 134,169,0,133,133,133,132,13 

3,138,133,128,133,129,133,130,141,8866 
XH 1100 DATA 30,208,133,185,133,186,133,1 

87.32,93.55,160,132,132,139,169,8989 
OU 1110 DATA 115,133,140,141,0,208,162,0, 

189,146,54,153,0,36,149,172,5939 
UX 1120 DATA 200,232,224,12,208,242,162,5 

5 , 168 , 120 , 169 , 7 , 32 , 92 , 228 , 169 , 8981 
VY 1130 DATA 0,133,131,133,136,133,137,13 

3,138,133,166,133,135,133,185,133,336 



DK 1140 DATA 186,133,187,141,30,208,133,1 

89,133,188,198,139,248,165,133,24,1394 
XA 1150 DATA 105,1,133,133,216,166,132,22 

4,12,240,62,232,134,132,189,204,2643 
ZC 1160 DATA 60,133,165,189,217,60,133,16 

8,169,20,133,170,189,230,60,133,386 
XA 1170 DATA 184,189,243,60,133,131,76,51 

,53,112,112,112,70,0,34,6,781 
GH 1180 DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6, 

6,6,1996 
CQ 1190 DATA 6,6,6,6,6,130,65,19,53,169,1 

9,141,48,2,169,53,770 
GL 1200 DATA 141,49,2,169,87,141,0,2,169, 

52,141,1,2,169,192,141,4550 
FD 1210 DATA 14,212,169,26,141,196,2,169, 

202,141,197,2,169,36,141,198,8909 
NH 1220 DATA 2,169,56,141,199,2,162,0,138 

,157,0,34,157,249,34,232,7402 
AD 1230 DATA 224,250,208,245,162,0,189,15 

0,53,133,190,232,189,150,53,133,1052 
ZR 1240 DATA 191,232,189,150,53,133,142,2 

32,189,150,53,160,0,145,190,200,759 
PY 1250 DATA 196,142,208,249,232,224,44,2 

08,221(76,248,53,51,34,6,2,5200 
BX 1260 DATA 62,34,3,2,126,34,5,2,174,34, 

4,2,203,34,5,2,7488 
TG 1270 DATA 18,35,3,2,31,35,4,2,85,35,5, 

2,117,35,5,2,5096 
QO 1280 DATA 164,35,20,2,184,35,20,133,15 

3,155,151,147,97,159,101,145,7590 
ZO 1290 DATA 161,146,160,152,154,133,0,0, 

0,0,51,35,47,50,37,26,7662 
UZ 1300 DATA 0,0,0,0,0,0,0,37,46,37,50,39 

,57,26,0,0,4503 
NH 1310 DATA 0,44,37,54,37,44,26,0,0,0,0, 

0,0,0,169,0,4891 
RV 1320 DATA 133,142,166,142,189,194,53,1 

70,169,65,157,0,35,230,142,165,8986 
LX 1330 DATA 142,197,184,208,237,162,39,1 

89,208,53,157,204,35,202,16,247,1244 
RA 1340 DATA 32,106,58,32,113,58,32,92,58 

,169,32,141,7,212,169,2,3641 
VH 1350 DATA 141,29,208,169,62,141,47,2,3 

2,245,54,169,200,141,192,2,7196 
HN 1360 DATA 162,2,32,8,55,202,16,250,189 

,0,133,187,133,185,133,186,9771 
UD 1370 DATA 141,30,208,32,44,55,169,1,13 

3,138,162,8,189,236,54,157,7602 
RO 1380 DATA 225,34,202,16,247,160,120,32 

,15,59,162,8,169,0,157,225,6389 
UD 1390 DATA 34,202,16,250,32,34,60,32,68 

,57,32,120,58,32,149,58,1255 
FL 1400 DATA 173,31,208,201,6,208,3,76,13 

5,52,165,165,208,3,76,38,4994 
PT 1410 DATA 59,165,134,208,226,76,170,59 

,124,254,146,146,218,254,124,40,2185 
00 1420 DATA 40,40,108,108,0,124,254,146, 

146,218,254,124,40,40,108,108,8190 
JF 1430 DATA 0,0,124,254,146,146,218,254, 

124,40,108,108,0,124,254,146,9864 
HK 1440 DATA 146,218,254,124,40,40,108,10 

8,0,16,56,124,84,214,254,198,8670 
DJ 1450 DATA 124,0,24,36,66,129,129,66,36 

,24,0,24,36,66,66,36,8135 
IN 1460 DATA 24,0,0,0,24,36,36,24,0,0,0,2 

4,36,66,66,36,5510 
CE 1470 DATA 24,0,103,101,116,64,114,101, 

97,100,121,169,0,170,157,0,4744 
HP 1480 DATA 36,157,0,37,157,0,38,157,0,3 

9,232,208,241,96,173,10,6955 
CE 1490 DATA 210,41,127,24,105,65,149,144 

,157,1,208,173,10,210,41,15,5081 
VC 1500 DATA 149,147,169,216,157,193,2,16 

9,1,149,162,149,153,169,0,149,8431 
BZ 1510 DATA 150,96,164,147,162,0,189,194 

,54,153,0,37,200,232,224,10,8445 
NN 1520 DATA 208,244,164,148,162,0,189,19 

4,54,153,0,38,200,232,224,10,8825 
N5 1530 DATA 208,244,164,149,162,0,189,19 

4,54,153,0,39,200,232,224,10,8851 
GT 1540 DATA 208,244,96,169,0,141,0,210,1 

41,2,210,141,4,210,141,6,6220 
VE 1550 DATA 210,141,1,210.141.3.210,141, 
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5,218,141,7.218,96,165,138.8743 
NQ 1568 DATA 288,3,76,244,56,169,8,133,77 

,238,137,166,137.224,3,208,118 
BU 1578 DATA 28,162,8,134,137,32,194,58,1 

74,199,2,282,224,48,288,2,7887 
PN 1580 DATA 162,68,142,199,2,162,8,189,5 

.288,41,2,248,27,169.8,4211 
PC 1590 DATA 157,1,288,149,158,149,144,16 

5,135,248,24,185,5,216,133,135,9484 
F5 1688 DATA 169,138,141,1.218,169,58,133 

.185,232.224,3,288,217,162,2,639 
RD 1618 DATA 189,13,208,41,1,240,34,181,1 

53,201,255,240,28,181,162,288,3472 
NP 1628 DATA 16,248,165,135,24,185,1,133, 

135,216.169,1,133,186,76,243,9595 
EL 1638 DATA 55,169,1,149,159,169,16,133, 

187,202,16,212,173,4,208,41,8111 
WD 1640 DATA 8,240,13,248,165,135,24,105, 

1,216,133,135,169,1,133,186,8236 
5G 1650 DATA 166,185,248,32,282,248,14,13 

4,185,142,8,218,173,18,218,141,54 
ZT 1668 DATA 197,2,76,46,56,162,8,134,185 

,142,8,210,142,1,210,169,7916 
NM 1670 DATA 202,141.197,2,165,186,248,23 

,169,208,141,3,218,173,10,210,328 
AB 1688 DATA 41,3,24,105,43,141,2.218,169 

.8,133,186,76,79,56,141.5388 
FX 1690 DATA 3.210,141,2,210,165,187,248, 

35,56,233,1,248,22,133,187,9678 
00 1708 DATA 24,105,32,141,5,210,173,10,2 

10,41,15,24,105,60,141,4,2307 
MD 1710 DATA 210,76,118,56,133,187,141,4, 

210,141,5,210,164,139,162,11,8815 
JU 1728 DATA 169,8,153,8,36,288,282,16,24 

9.173,128,2,201,11,248,7,7864 
KU 1730 DATA 201.7,240.20.76.176.56,166,1 

48,282,224,43,208,2,162,202.555 
XE 1740 DATA 134.140,142,0,208.76,176,56, 

166,140,232,224,203,208,2,162,2063 
GA 1758 DATA 44,134,140,142,0,208,165,166 

,208,9,173,132,2,240,19,169,8605 
UD 1760 DATA 0,133,167,32,255,56,165,166, 

288,3,76,223,56,230,139,76,9412 
AJ 1770 DATA 223,56,169,1,133,167,165,139 

,201.38,208,7,169,1,133,166,7893 
DM 1780 DATA 76,199,56,198,139,32,223,58, 

164,139,162,0,181,172,153,0,7838 
CK 1790 DATA 36,280,232.224.12,208,245,76 

,247,56.32.93.55.169.0,141,7037 
HS 1888 DATA 38,288,76,98,228,162,0,173,4 

,208,41,1,208,5,169,1,4266 
LQ 1810 DATA 133,166,96,165,148,281,137,1 

44,28,189,57,57,197,139,288,5,8328 
TP 1828 DATA 169,8,133,166,96,232,224,5,2 

88,239,76,8,57,189,62,57,6955 
DK 1830 DATA 197,139.208,3,76,26,57,232,2 

24,6,288,241,76,8,57,37,5535 
QD 1840 DATA 85,125,165,189.45.69,181,133 

,157,189,162,8,181,162,208,8,8798 
TH 1850 DATA 169,54,157,193,2,76,87,57,16 

9,216,157,193,2,232,224,3,9387 
00 1868 DATA 288,234,165,169,240,3,198,16 

9,96,165,168,133,169,165.171,240.4533 
ZM 1878 DATA 3,198,171,96,165,178,133,171 

,162,8,181,162,208,3,76,154^9853 
VX 1880 DATA 57,32,4,58,181,162,288,74,17 

3,18,218,41,1,248,11,169,6871 
L5 1890 DATA 0,149,153,169.1,149,150.76,2 

04,57,149,153,169,255,149.150.2163 
FX 1900 DATA 32,4,58,181,162,240,43,173,1 

0,218,41,3,240,249,201,1,9087 
XD 1918 DATA 240,13,201,2,240,20,169,1,14 

9,153,149.150.76.204.57,169,9011 
AY 1920 DATA 1,149,153,169,0,149,150,76,2 

84,57,169,1,149,153,169,255,877 
EO 1930 DATA 149,150,232,224,3,208,163,16 

2,0,181,144,24,117,150,201,40,8629 
PG 1940 DATA 288,5,169,215,76,231,57,281, 

216,208,2,169,41,149,144,157,663 
EM 1950 DATA 1,208,181,147,24,117,153,201 

,240,208,5,32.8,55,198,165,8162 
VM 1960 DATA 149,147,232,224,3,208,210,76 

,44,55,160,0,185,40,58,213,7285 



FE 1970 DATA 147,288,17,181,144,217,58,58 

,144.18,217,68,58,176,5,169,6644 
XN 1988 DATA 8,149,162,96,208,192,18,288, 

227,169,1,149,162,96,47,71,7857 
WY 1998 DATA 183,135,159,39,87,127,167,19 

1,57,89,65,97,49,129,153,153,7358 
IJ 2888 DATA 145,41,89,137,113,137,97,185 

,193,185,193,289,133,142,74,74,817 
HH 2810 DATA 74,74,9,16,153,204,35,288,16 

5,142,41,15,9,16,153,284,5593 
NE 2820 DATA 35,96,162,2,168,18,181,128,3 

2,78,58,280,202,16,247,96,8889 
UX 2838 DATA 165,134.160,24,76,78,58,165, 

133,168,33,76,78,58,165,135,5994 
VT 2840 DATA 208,1,96,165,134,248,56,229, 

135,216,133,134,281,128,144,4,655 
OR 2858 DATA 169,8,133,134,169,0,133,135, 

76,186,58,162,2,181,159,248,9121 
YW 2868 DATA 11,169.8,149.159,169,255,149 

,153,32.178.58.202,16,238,96,10 
N5 2878 DATA 165,131,248,24,181,128,133,1 

28,169,8,181,129,133,129,169,8,6815 
GM 2888 DATA 181,130.133,130,216,76,92,58 

,165,136,24,105,8,201.32,208,7899 
RY 2898 DATA 2,169,0,133,136,168,162,0,18 

5,284,54,157,8,32,200,232,9231 
DA 2100 DATA 224,8,288,244,96,165,166,288 

,43,165,167,288,39,238,189,165,3888 
QD 2118 DATA 189,281,7,288,31,169,0,133,1 

89,165,188,24,185,12,281,48,6810 
YE 2120 DATA 208,2,169,8,133,188,168,162, 

8,185,146,54,149,172.200.232,2265 
XJ 2130 DATA 224,12,208,245,96,169,8,133, 

28,132,142,165,20,197,142,240,570 
XA 2140 DATA 10.173,31,208,281,6,288,243, 

76,135,52,96,32,93,55,169,6867 
LH 2150 DATA 0,141,1,208,141,2,208,141,3, 

288,162,13,189,254,59,157,23 
KA 2160 DATA 223,34,202,16,247,160,18,169 

,168.141,1,210,169,105,141,0,7973 
EC 2170 DATA 210,169,134,141,196,2,32,15, 

59,169,115,141.0.210.169,26,6089 
DQ 2180 DATA 141,196.2,32,15,59,165,134,2 

40,70,136,208,223,32,93,55,7977 
BY 2190 DATA 162,13,189,12,60,157,223,34, 

282,16,247,166,132,189,8,61,8893 
AQ 2200 DATA 170,165,134,201,117,240,10,2 

48,24,185,1,216,133,134,32,186,7635 
MJ 2210 DATA 58,160,8,169,48,141,1,218,14 

8,8,210,132,143,160,1,32,5881 
NK 2220 DATA 15,59,164,143,136,16,241,202 

,208.215,32,93,55,76,201,52,8612 
UK 2238 DATA 169,0.133.138,141.0.208.141, 

192,2,32,93.55.169,202,141,8222 
BR 2240 DATA 197,2,169,24,133,136,32,194, 

58,162,0,189,26,68,157,226,7860 
UJ 2250 DATA 34,160,25,32,15,59,232,224,8 

,208,248,160.120.32,15,59,6541 
IJ 2268 DATA 169,15,133,168,133,170,133,1 

65,32,68,57,173,31,208,281,6,7563 
RT 2270 DATA 208,3,76,135,52,173,132,2,20 

8,3,76,135,52,165,165,208,8637 
KN 2280 DATA 231,76,104,52,108,181,118,10 

1,108,64,99,111,189,112,188,181,6217 
OZ 2290 DATA 116.101,64.98.111.110,117,11 

5,64,101,110,101,114,103,121,64,5917 
CZ 2300 DATA 116,104,101,64,64,101,110,10 

0,165,132,201.3,144,34,169,195,8734 
SP 2310 DATA 141,11,34,141,31,34,165,132, 

281,7,144,28,169,195,141,7,6566 
EO 2320 DATA 34,141,27,34,141,47,34,141,6 

7.34.141,87,34,141,187,34,3309 
YV 2330 DATA 96,169,102,141,197,2,169,150 

,141,198,2,169,200,141,199,2,9904 
ZT 2340 DATA 169,101,141,48,2,169,60,141, 

49,2,96,112,112,112,112,112,5255 
RB 2350 DATA 112,112,112,112,112,112,71,1 

24,60,112,6,6,112,112,6,65,2143 
PU 2360 DATA 101,60,0,0,0,52,40,37,0,37,4 

4.37,35.52.50,47,7452 
BC 2370 DATA 41,36,51,0,0,0,64,64,64,64,6 

4,64,72.99,73.64.725 
VH 2380 DATA 81,89.88,84,64,8,8,8,8,8,128 
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ATARI DISK DRIVE OWNERS . . . 
HAPPY BLASTS RETAIL PRICE— ORDER TOLL FREE! 




THE FAMOUS HAPPY ENHANCEMENT NOW ONLY $149.95 
for 1050 order number HCIG, for 810 order number HC8G 

Makes your disk drive read and write faster, and allows v©u to execute the HAPPY WARP SPEED SOFTWARE. 
Available only for ATAR1 1 050 and 810 disk drives. 1 050 version allows true double density plus the original single 
and enhanced density. PRICE INCLUDES WARP SPEED SOFTWARE BELOW, installation required. 

HAPPY WARP SPEED SOFTWARE REV 7 (not sold separately) 

Includes the famous HAPPY BACKUP and COMPACTOR which are the most powerful disk backup utilities 
available for your ATARI computer, plus MULTI DRIVE which allows high speed simultaneous reading and writing 
with up to 4 HAPPY ENHANCED drives, plus SECTOR COPIER which is the fastest disk copier that supports the 
130XE RAMDISK, plus the WARP SPEED DOS which improves ATARI DOS 2.0s to allow fastest speed, plus 
HAPPY'S DIAGNOSTIC which allows comprehensive disk drive testing. 

HAPPY 1050 CONTROLLER $64.95 order number HC2G 

For use with HAPPY ENHANCED 1050 disk drives only. Allows easy access to HAPPY 1050 slow and fast speeds 
and ultimate control of disk drive write protect, including writing to disk back side and protecting valuable data 
disks. Printed circuit board has switches and write protect indicator LED, installation required. 

GET YOUR FAVORITE HIGH SPEED DOUBLE DENSITY DOS 

Both of these disk operating systems support the fastest speed with both HAPPY 81 0* and 1 050, and with HAPPY 
1050 you get true double density. WARP SPEED DOS XL is HAPPY's own version of OSS DOS XL, and includes 
under cartridge, under ROM and AXLON RAM disk version, and is order number HC4G at $29.95. TOP DOS 
version 1 .5 from ECLIPSE SOFTWARE has more menu driven features, operates in all three densities, supports the 
130XE RAMDISK, and is order number HC6G at $39.95. *Note: 810 requires upgrade below. 

810 VERSION 7 UPGRADE $49.95 order number HU3G -XXXX 

Allows older 81 HAPPIES to use newer software. Includes custom plug in IC and rev 7 WARP SPEED SOFTWARE. 
Same price for all HAPPY 810s registered or not. When ordering replace XXXX in part number with the serial 
number of your HAPPY COMPUTERS manufactured 81 board, or with a 2732 or 2532 which corresponds to the 
EPROM part number in your HAPPY 810 socket Al 02 of your side board modified HAPPY (not made by HAPPY 
COMPUTERS), installation required. Upgrade not needed for new 810 HAPPYS and serial number over 8000. 

SUPER PACKAGE SPECIALS 

Get a HAPPY 1050 ENHANCEMENT and CONTROLLER and WARP SPEED DOS XL for just $199.95 order 
number HS5G, or get the same with TOP DOS 1 .5 instead of DOS XL for just $21 4.95 order number HS7G. If you 
already have the 1 050 ENHANCEMENT you can get the HAPPY 1 050 CONTROLLER and WARP SPEED DOS XL 
for $74.95 order number HXL9G, or get the HAPPY 1 050 CONTROLLER and TOP DOS 1 .5 for just $84.95 order 
number HTD9G. For other specials and dealer pricing call (408) 779-3830. 

All prices include UPS shipping in USA, add $1 0.00 for shipment outside USA. California residents add sales tax. No extra charge for credit cards or COD, VISA or 
NMSTERCARD accepted. Our toll free number is an order taking service, not our line. To ORDER ONLY call (800) 538-81 57 outside California, or (800) 672-3470 
inside California, ask for extension 81 7 and have your credit card, part number and quantities ready. Toll free hours 6 am to 1 2 pm Mon.-Fri., 8 am to 8 pm Sat. & 
Sun., Pacific Time. For answers to questions call HAPPY COMPUTERS at our number below. Office hours 9-5 Mon.-Fri. Pacific Time. 



HAPPY COMPUTERS, INC. * 



P.O. Box 1268 * Morgan Hill, CA 95037 

CIRCLE #120 ON READER SERVICE CARD 



* (408) 779-3830 




Electroids 



continued 



,128,128,162,185.128,5258 
HL 2390 DATA 170,161,173,165,179,128,168, 

161,167,181,165,128,128,128,192,192,42 

60 
VX 2400 DATA 192,192,240,242,229,243,243, 

192,192,243,244,225,242,244,192,192,25 

60 
XF 2410 DATA 192,192.0,5,7,9,10,11,12,12, 

12,12,12,12,12,0,4261 
DH 2420 DATA 18,15,12,10,9,8,7,6,5,4,3,2, 

0,1,3,4,2999 
TA 2430 DATA 5.6,7,8,9,10,11,12,14,0,5,16 

,21,32,37,48,5195 
MN 2440 DATA 53,64.69,80,96,117,0,5,5,5,7 

,7,7,10,10,10,5167 
KJ 2450 DATA 15,15,15,0,224,2,225,2,0,52, 

0,0,0,0,0,0,5783 



Listing 2. 
BASIC listing. 

ML 10 REN *** ELECTR0ID5 )HH( 
LI 20 REN CASSETTE NAKER PROGRAM 
EI 40 DIN DAT(16}:LINE=990:REST0RE 1000:1 
RAP 120:? "CHECKING DATA" 



DO 50 LINE=LINE«10:? "LINE:";LINE:FDR X=l 
TO 16:READ DAT:IF DAT<0 OR DAT>255 TH 

EN 220 
VY 60 DAT CX)=DAT: NEXT X:DATLIN=PEEKC183}« 

PEEKC184]N256:IF DATLINOLINE THEN ? " 

LINE ";LINE;" MISSING!":END 
HP 70 TOTAL=LINE:FOR X=l TO 16 
HN 80 IF PASS=2 THEN PUT ttl, DAT CXI : NEXT X 

:READ CHKSUN:G0T0 58 
AJ 90 T0TAL=T0TALtDATfX)NX:IF T0TAL>9999 

THEN T0TAL=T0TAL-10000 
LR 100 NEXT X:READ CHKSUH:IF TOTAL=CHKSUH 

THEN 50 
MO 110 GOTO 220 

ZR 120 IF PEEKC195106 THEN 220 
ZT 130 IF PASS=0 THEN 200 
AD 160 FOR X=l TO 128:PUT ltl,e:NEXT X:CL0 

SE ttl: END 
HD 200 ? "READY CASSETTE AND PRESS RETURN 

";:OPEN ttl,8,0,"C:":REST0RE 230:F0R X= 

1 TO 40: READ NrPUT ttl, N: NEXT X 
OS 210 ? :? "WRITING FILE":PAS5=2:LINE=99 

0:REST0RE 1000:TRAP 120:G0T0 50 
HI 220 ? "BAD DATA: LINE "; LINE: END 
CI 230 DATA 0,19,210.51.249,51,169,0,234, 

234,234,169,60,141,2,211,169,0,141,231 

,2,133,14,169,56,141,232,2 
FN 240 DATA 133,15,169,0,133,10,169,52,13 

3,11,24,96 



ATARI 810 DISK DRIVE LESS CASE $120.00 



ROM 



CPU 



MAIN 




16K 
RAM 



New Spare Parts 
For Atari 
800/400/810 

800 PCB Sets 
Main, CPU, 10K OS, 
Power & RAM $40 
Less RAM chips $30 



TANDON 
BSC 810 
$140.00 
IS120. 



POWER 



IS) Prices In parenthesis |$) 

are less I/O Cable and Power 

Pak. Add {10.00 each. 




MPI 

sac 810 

$140.00 
l$I20.1 



B&C 810 

w/Happy 

$220.00 

($200.) 



New Replacement Printed Circuit Boards (PCB) w/parts 

800 Main $10 16K RAM $10 BlOside w/DS...$40 

BOOPower $5 10K OS $10 810 Analog $10 

CPU w/GTIA. $10 810 Power $15 

800 XL $50 1200 XL $35 

Power Paks 800/810 $15ea BOOXLPower $25 ea 

Limited quantity used 800 cases & cast shields $30 ea 

Hard to find Integrated Circuits 
IC $5. ea GTIA, 800 ANTIC, 800 CPU, XL CPU, POKEY, 6520 
PIA, 6507, 444, 6532, 6810, 810 ROM C 

IC $10 ea XL ANTIC, MMU, XL/XE OS, BASIC C, 850 ROM B. 
1050 ROM, 1771 

De Re Atari $10 



^^Qxxiputervisions 



(408) 749-1003 



Complete working 810 Less case $120.00 ($100.) 

With B&C Black Anodized Case $140.00 ($120.) 

With Case and Happy Upgrade $220.00 ($200.) 

810 PCB Set w/side, DS, Power, Analog $60 

810 Drive Mechanisms Tandon or MPI $60 

Field Service Manuals 800/400, 800XL or 810 $25. ea 

For 1050 or 1200XL $20 ea 1025, 1027, 825, 850 

Diagnostic Cartridges Computer or Disk $25. ea 

520ST, 130XE, 800, 800XL, 810, 1050, 1030 $CALL 

OSS BASIC XE For 130XE $70 

Aventure International Gold Series $40 

Pilot, Basic, Manuals $5. ea. LOGO ref. manual $10 

• Special* Happy Upgrades 810 or 1050 $150 ea 



3283 Kifer Rd., Santa Clara, CA 95051 

Hours; Tuesday-Friday 10am-6pm/Sat. 10am-5prn 

Terms: Calif. Res, add 7% sales tax. No orders under $20 

We ship UPS COD, Prepaid or MC/Visa, Add shipping (minimum $5 ) 
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NEW HOURS! 

Mon-Thur-9 AM-8PM 

FrI - 9 AM-6 PM 

Sat- 10 AM-6 PM 



AMERICA'S MAILORDER HEADQUARTERS 



SAVE 



ON THESE 
IN STOCK 



PRINTERS 



INTERFACING AVAILABLE! 



1091 $228 

PANASONIC 

1091 228 

3131 (NEW) 264 

1092 325 

3151 409 

1080 (NEW) 209 

1592 NEW 439 



CITIZEN 

MSP-10 255 

MSP-15 355 

MSP-20 337 

MSP-25 495 



OKIDATA 

Okimate 10 \m 

182 214 

192 348 

193 563 



JUKI 

Juki 6100 344 

RS232 Serial Board 55 

eiOOTractor 119 

6100 Sheet Feeder 209 

Juki 6300 757 



C. ITOH 

Prowriter 8510 sp+ - Call 

15505 sp+ Call 

Printmaster Call 



EPSON 

I xuo ?m 

rXBb 333 

JX80 Call 

Homewriter 10 193 

DX10 207 

DX20 297 

DX35 597 

AP-80 244 

HI-80 355 

HS-80 298 

FX-286 (NEW) 489 

LQ-BOO (NEW) 529 

LQ-IOOO(NEW) 659 



BROTHER 

HR-15XL-P 359 

HR-15XL-S 359 



COLOR RIBBONS NOW AVAILABLE!! 



NEW HOURS! 

Mon-Thur- 9 AM-8 PM 

Fri - 9 AM-6 PM 

Sat -10 AM-6 PM 



SG-10 $205 



STAR MICRONICS 

SG-10 205 

SG-10C 219 

SG-15 367 

SD-10 319 

SD-15 438 

SR-10 469 

SR-15 578 

SB-10 589 

Powertype 297 

LEGEND 

1080 Call 

1380 258 

1385 289 

808 148 



MONITORS 





AMDEK 




ZENITH 






300 Green 


. 118 


ZVM 122A Amber 


. .75 




300 Amber . 


128 


ZVM 123G Green 


. .75 




310 Amber IBM 


.155 


ZVM 124 Amber IBM 


129 




Color 300 Audio 


234 


ZVM 131 Color 


275 




Color 500 Composite 


.369 


ZVM 133 RGB 


389 




Color 600 


397 


ZVM 135 Composite 


449 




Color 700 


.496 


ZVM 136 Hi Res Color... 


.589 




Color 710 


...569 


ZVM 1220 

ZVM 1230 

ZVM 1240 


...95 
.95 
149 




THOMSON 




TEKNIKA 






CM36512V1 


269 


MJ-10 Composite 


.179 




CM36632 


.159 


MJ-22 RGB 


.255 






■1 




■ 



520 ST 



MODEMS 



SUPRA 

Supra 300 (Atari) 49.95 

Supra 1200 (Atari). .199.95 

DIGITAL DEVICES 

Pocket Modem AT Call 

CompuServe 18.95 

ATARI 

130XE CALL 

65XE CALL 

eOOXL CALL 

520ST CALL 

1050 Drive 145 

1027 Printer 145 

850 Interface 109 

SF314 Drive 229 

Sf354 Drive 179 

1040 St (New) Call 

XM301 Modem 31 



DRIVES 



INDUS 

GT Atari 195 

GT Commodore 195 



DISK NOTCHERS . . $7,951! 



SIERRA 

ULTIMA II 39.96 

ACTIVISION (520 St) 

Borrowed Time 29.75 

Music Studio 29.75 

Hackler 26.75 

Mindshadow 29.75 

HABA (520 St) 

Writer 49.95 



FTL GAMES 

Sundog 29.95 



MARK of UNICORN (520ST) 

HEX 29.95 

MINCE 12995 

PC/lnteiComm 99.95 



QUICKVIEW (520 St) 

Zoomracks 49.95 



MICROPROSE (Atari) 

Kennedy Approach ... 21 .75 
Crusade in Europe....24.76 

Decision in Desert 24.75 

Solo Flight 20.75 

Nato Commander 20.75 

Spitfire Ace 18.75 

F-15 Strike Eagle 20.75 

Silent Service 20.75 

Conflict in Nam 24.75 



SSI (Atari) 

Nam 24.75 

Mechraged 34.95 

Antietam 29.95 

USAF 34.95 

SYNAPSE (Atari) 

Synfile 29.95 

Syncalc 29.95 

Template 14.95 

Mindwheel 24.76 

Brimstone 24.75 

ACTIVISION (Atari) 

Hackler 15.75 

Mindshadow 15.75 

Ghostbusters 15.75 

Great Am. Race 15.75 

Music Studio 20.76 

Space Shuttle 15.75 

SUB LOGIC (Atari) 

Flight Simulator II. ...32.75 

Night Mission Pinball 20.75 



3.5" DISKETTES 

DENNISON 

SSDD 5 pak 14.95 

SSDD 10 pak 26.95 

MAXELL 

SSDD 10 pak 29.95 

DSDD 10 pak 36.95 

3M 

SSDD 10 pak 26.95 

DSDD 10 pak 32.95 

DENNISON 

ELEPHANT 5V." SSSD 1199 
ELEPHANT 5V." SSDD .1299 
ELEPHANT S'A " DSDD 14.99 

PREMIUM 5V4" SSDD «.9!> 

PREMIUM 6V4" DSDD 15.9i< 

VERBATIM 

5V." SSDD 1399 

5V,~ DSDD 19.99 

BONUS 

5V4- SSDD 8.99 

5V4" DSDD 1299 



TOLL FREE 1-800-233-8760 






TO ORDER 



CALLTOLLFREE 1 -800-233-8760 

In PA 71 7-494-1030 
Customer Service71 7-494-1 670 



or send ordar to 
Lyco Computer 
P.O. Box 5068 

Jersey Shore. PA 
17740 



RISK FREE POLICY 

In-slock 'lems shipped withm 2A hoys ol order No depoail on C ord*fl Fr*t 
shipping on prepaid cash orders withm the conlirwntal U S Volume discounia 
available PA residents add sales lax APO FPO ar>d mternaiional orders add 
SS 00 plus 3°« lor pnoriiy mail service Adveriised prices show 4% dncour^l lor 
cash, add f^ for Masletv^ard o' Visa Personal checks require 4 aveeks' cteararKe 
before shipping Ask abgul UPS Blue and Red label shipping All mercharvdise 
carried under manufacturer s warranty Free catalog iwilh order All ilems subfecl 
lo change wiihoul nonce 
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omputer Gourmet 



NEW HORIZONS SOFTWARE 
P.O. Box 180253 
Austin, TX 78718 
(512) 280-0319 
48K Disk $29.95 

by Matthew J.W. Ratcliff 

The Computer Gourmet is the perfect 
addition for the computer you keep in 
the kitchen. You do keep an Atari in the 
kitchen, don't you? It's the answer for all 
of you who said, "Gee, Honey, you can 
even keep all your recipes on it. We real- 
ly need this computer." Well, 14 million 
Pac-Man games later, don't you think it's 
about time to let the wizard of the kitch- 
en use the Atari? 

The Computer Gourmet is a machine 
language recipe database management 
program that makes cookbooks a thing 
of the past — once you've created all 
your recipe data disks. The Gourmet 
comes with a concise manual to guide 
you through all its features. The pack- 
age includes a program disk and a data- 
base disk with ninety-two recipes to get 
you started. You can easily change the 
recipes or create your own disk. Each 
single-density, Atari DOS format data 
disk will hold about one hundred re- 
cipes. 

I fired up the program and had my 
wife sit down in front of the monitor. 
She's definitely not a computer type, but, 
after a short keyboard tutorial, she had 
no trouble finding recipes. 

The main — ahem — menu presents 
four options: (1) Add New Recipes, (2) 
Change/Remove Recipes, (3) Show Re- 
cipes, and (4) Change Recipe Diskette. 



Every recipe data disk has two files: 
data and index. Pressing option 4, the 
program will prompt you to switch data 
disks. It will then read a new recipe 
index. 

Options 1 through 3 send you to the 
recipe screen. The top two screen lines 
are used to show program prompts and 
the current meaning of console key func- 
tions. Below that are three lines, two 
fields each, which display type, catego- 
ry, servings, rating, cooking time and 
temperature. 

When searching for recipes, you may 
specify all or part of the title, type and/ 
or category of interest. Pressing START 
begins the search function. 

The first recipe found to match your 
specifications is displayed. Below the 
brightly colored fields, the recipe ap- 
pears on the typical blue of a graphics 
display. If the entire text won't fit, it's 
easily scrolled up or down with the ar- 
row keys. 

The recipe index is kept in memory, 
including each entry's type and catego- 
ry. Recipe titles are kept in the data file. 
This results in fast searches if you speci- 
fy type and/or category only. 

If you search by title only, the program 
must search through every recipe on the 
disk sequentially, a rather slow process. 
If type or category is entered, the index 
tells the program exactly where on disk 
a matching recipe lies, resulting in a 
much faster search. 



This isn't a serious limitation — you 
usually have a pretty good idea of what 
you plan to cook. For example, if you 
need to cook a vegetable with dinner 
and you have lots of potatoes, specify 
"dinner" and "potatoes" in the type and 
category fields, respectively. 

You can then search through all your 
favorite potato dishes, to find the one 
that tickles your taste buds this time. If 
you're cooking breakfast, you could also 
specify "cake" in the title. The search 
might turn up POTATO PANCAKES. 

If your recipe serves two and you have 
a small army (say, ten) to feed, just press 
SELECT. You may then input 10 and see 
the recipe's ingredients recomputed and 
displayed. This is a very nice feature of 
the Gourmiet. 

You can also print a "shopping list" 
or the entire text of the dish currently 
displayed. My wife really likes being 
able to get a quick printout of a recipe. 
There's no worry about getting a disk or 
cookbook messed up in the kitchen, if 
you use a printout. And, when a guest 
wants your recipe, just print it out. 

The shopping list is simply a printout 
of the ingredient section. I would have 
liked to see a facility in the program for 
specifying a menu of recipes for a week 
or month at a time. These could have 
been summarized on the printer, to 
make up a complete shopping list. 

The recipe itself consists of two dis- 
tinct sections: ingredients and direc- 
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256K 

MEMORY UPGRADE KIT 

$ 39.95 






Upgrade your 800XL lo 256K 
RAM memory. Kit includes logic 
board, Mydos DOS, Manual, 
Installation instructions. 130XE 
compatible. Ram chips not 
included. Order 256KXLLM. 






256K RAM 
$28.00 






Set of 8, 256K x 1 bit DRAM 
150ns. For 256KXLLM upgrade. 
RAM prices may vary. 




^" 


SYNSOFT 

GENERAL LEDGER 

$99.95 






ACCOUNTS RECEIVABLE 
$49.95 






ACCOUNTS PAYABLE 
$49.95 






Contact . . . 

Newell Industries 

602 E. Hwy 78 

Wylie, Texas 75098 

(214)442-6612 

for a complete list of products 

for Atari computers. Dealer and 

Distributor inquiries welcome. 
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OPPORTUNITY 

DISK 

For $2.95 (plus $1.00 
for postage) you get 
to see the oppor- 
tunity of a lifetime. 
Just boot the disk into 
a 48K or 64K Atari, and 
watch the show. 

NVS Residenis Add Sales Tax 

Orders from Outside the USA and Canada 
Stiould Add $2.50 Postage 

SENECOM 

Dept. 61 

13 Whitest. 

Seneca Falls, N.Y. 13148 

Msr'i'^ is a registered trademark of Atari 
Corporation. 

SeneconT^ is a registered trademark of 
Seneca Computer company, inc. 



Ei 



THE LOWEST 
PRICES 



THE BEST 
SERVICE 

CALL re 1 4J 864-9994 P.O 



PHONE 

LINES 10-eE.S.T 
OPEN M— F 

Box 1 3428 • Columbus. OH 432 1 3 



ELECTRONIC ONE* 



ATARI COMP. HARDWARE 

65XE 79.99 

800XL 89.99 

130XE 119.99 

DISK DRIVES 

ASTRA (THE ONE) 249.99 

INDUS. G.T 199.99 

CENTURIAN(810) 169.99 

ATARI IPSO DISK DRIVE 124.99 

PRINTERS 

STARS.G. 10 

STARS.G. 15 

PANASONIC1080 

PANASONIC 1091 

EPSON LX80 

TRACTOR (LX80) 

ATAR1 1027 

ATARI 1025 

ATARI 1020 

ATARI XM801 

SEIKOSHA 

INTERFACES 

MPP MICROPRINT 

U PRINT 

APE FACE 

MPP 1050 

XETEC 



ATARI COMPUTER ATARI 



.219.99 
.379.99 
.199.99 
.229.99 
219.99 
. 24.99 
. . 79.99 
.139.99 
. .19.99 
. 189.99 
.189.99 

. . 34.99 
. . 49.99 
. .49.99 
. .49.99 
. .44.99 



MONITORS 

SAKATA 13" COLOR . . . . 
COMMODORE 1802 



139.99 
.179.99 



SOFTWARE 

ENTERTAINMENT 

PACMAN 4.99 

STAR RAIDERS 4.99 

ASTEROIDS 4.99 

QIX 4.99 

KABOOM 4.99 

PITFALL 4.99 

MEGAMANIA 4.99 

Q-BERT 6.99 

POPEYE 6.99 

FROGGER 6.99 

DIG DUG 9.99 

MOON PATROL 9.99 

FOOTBALL 9.99 

BASKETBALL 9.99 

ROBOTRON 9.99 

ONE ON ONE 23.99 

MOVIEMAKER 23.99 

KATATEKA 18.99 

HACKER 18.99 

CROSSCOUNTRY 18.99 

BLUE MAX 2001 18.99 

KORONISRIFT 22.99 

THE EIDOLON 22.99 

RESUCE ON FRACTULUS 22.99 



520ST S.T. 

COLOR 788^0 

W/SOFTWARE 



JT SOFTWARE 

VIP PROFESSIONAL 99, 

HIPPO E 49. 

FORTH 59. 

ALL INFO COM 29.' 

CHAT 15, 

EXPRESS 29, 

HABA WRITER 49, 

HEX 21. 

SUN DOG 25. 

ULTIMA II 36. 

RHYTHM 34, 

BUSINESS LETTERS 29. 

OSS PERSONAL PASCAL . 49. 

KINGSQUESTII 32. 

SPINNAKER MATH 19. 

PERRY MASON 32.' 

FAHRENHEIT 451 32. 

TYPESETTER 25. 

TRANSYLVANIA 23. 

HABA HARD DRIVE 689.' 

HABA 300/1 200 MODEM .149. 



HOW TO ORDER: CASHIER CHECK, MONEY ORDER, MASTERCARD* OR VISA" 
(ADD 4% FOR CHARGE CARDS) ... NO PERSONAL CHECKS ... NO C.O.D.'s . . . 
SHIPPED U.P.S. ... ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 
SHIPPING: ADD $3.00 ON ALL ORDERS UNDER $100.00 . . . ADD $5.00 ON ALL 
ORDERS OVER $100.00. ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS. 
INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE 
CONTINENTAL UNITED STATES INCLUDING A.P.O. 

POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION ... NO 
RETURNS UNLESS DEFECTIVE. ALL DEFECTIVES WILL BE EXCHANGED. NO 
EXCEPTIONS. 



SPECIAL 

MPP 

1000E 

MODEM 

$37.99 



Zt Review continued 



tions. Ingredients may be preceded with 
a quantity. 

The editor for recipe entry will be 
very familiar to anyone used to the Atari. 
You edit recipe text the same way you 
would when entering a BASIC program. 

There is a minor limitation in that the 
Gourmet doesn't "word wrap" as you 
type; it doesn't even "wrap." When you 
get to the end of a line, it just beeps at 
you and keeps the cursor at the last 
character position. 

It's your responsibility to keep track 
of the line's end and press RETURN 
where necessary, as you would with a 
typewriter 

This is no big problem, unless you're 
a good touch typist who doesn't have to 
look at the screen. The program should 
at least give a beep five characters be- 
fore the end of a line. Still, once you get 
accustomed to it, this is only a minor 
nuisance. 

I was frustrated to find that there was 
no way to get a summary of all the re- 
cipes on a data disk, even though such 
a summary is given in the manual. 

I talked to the author, who sent me a 
short BASIC program listing that does 
the job. It will print a complete recipe 
index for a data disk, sorted by type, cat- 
egory and title. 

If you get the Gourmet without this 
program, call or write for the listing. I 
was told it will be included on Gour- 
met's program disk in the future. 

The Computer Gourmet is very well 
written and user friendly for the most 
part, but is not without limitations. Most 
are minor 

Disks aren't protected, and the man- 
ual encourages you to make a backup. 
Another nice touch is the fact that the 
program automatically turns off built-in 
BASIC on the XL/XE machines. Forget 
that OPTION key at power-up time. 

For those of you who've acquired a nu- 
merical keypad, you'll be glad to know 
that the Gourmet supports it — another 
nice touch. 

I can see "computer widows" every- 
where swapping recipes and saying 
words like database and disks. My wife 
really likes the program because, "You 
can just snap in a disk and tell the com- 
puter to find your recipe. I hate getting 
out cookbooks and searching through 
them." 

We highly recommend this program. 
But be forewarned . . .you may find 
yourself buying another computer, just 
for the kitchen. H 
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THIS ISSUE: 



VDI Sampler 




REQUIRED READMG 




INTERNALS 

Essential guide to learning the 
inside information of the ST. 
Detailed descriptions of sound 
& graphics chips, internal 
hardware, various ports, GEM. 
Commented BIOS listing. An 
indispensible reference for 
your library. 450pp. $19.95 



GEM Programmer's Ref. 

For serious programmers in 
need of detailed information 
on GEM. Written with an 
easy-to-understand format. All 
GEM examples are written in 
C and assembly. Required 
reading for the serious pro- 
grammer. 450pp. $19.95 



TRICKS & TIPS 

Fantastic collection of pro- 
grams and info for the ST. 
Complete programs include: 
super-fast RAM disk; time- 
saving printer spooler; color 
print hardcopy; plotter output 
hardcopy. Money saving tricl^s 
and tips. 200 pp. $19.95 



GRAPHICS & SOUND 

Detailed guide to understand- 
ing graphics & sound on the 
ST. 2D & 3D function plotters, 
Moir6 patterns, various reso- 
lutions and graphic memory, 
fractals, waveform generation. 
Examples written in C, LOGO, 
BASIC and Modula2. $19.95 



BASIC Training Guide 

Indispensible handbook for 
beginning BASIC program- 
mers. Learn fundamentals of 
programming. Flowcharting, 
numbering system, logical 
operators, program structures, 
bits & bytes, disk use, chapter 
quizzes. 200pp. $16.95 




PRESENTING THE ST 

Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.95 



MACHINE LANGUAGE 

Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
& important details of the 
instruction set, and use of 
the internal system 
routines. 280pp $19.95 



LOGO 

Take control of your 
ATARI ST by learning 
LOGO-the easy-to-use, 
yet powerful language. 
Topics covered include 
structured programming, 
graphic movement, file 
handling and more. An 
excellent book (or kids as 
well as adults. $19.95 



PEEKS & POKES 

Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. $16.96 



BEGINNER'S GUIDE 

Finally a book tor those 
new to the ST wanting to 
understanding ST basics. 
Thoroughly understand 
your ST and its many 
devices. Learn the funda- 
mentals of BASIC, LOGO 
and more. Complete with 
index, glossary and illus- 
trations. +200pp $14.95 



BASIC TO 

If you are already familiar 
with BASIC, learning C 
will be all that much 
easier. Shows the trans- 
ition from a BASIC 
program, translated step 
by step, to the final C 
program. For all users 
interested in taking the 
next step. $19.95 



Abacus 
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The ATARI logo and ATARI ST are »adomarks o( Atari Corp. 



Software 



P.O. Box 7219 Grand Rapids, Ml 49510 - Telex 709-101 -Phone (616) 241-5510 

Optional diskettes are available for all book titles at $14.95 

Call now for the name of your nearest dealer. Or order directly from ABACUS with your MasterCard, VISA, or Amex card. Add 
$4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and books coming soon. Call or 
write for your free catalog. Dealer inquiries welcome-over 1400 dealers nationwide. 
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ST Calculator Alain Birtz 49ST 

This LOGO program mimics a numerical calculator 

VDI Sampler James Luczak 53ST 

Call VDI functions from ST BASIC— and learn how to use them. 



/remits 



VIP Professional/Lite (Vip Technologies) . . . Arthur Leyenberger 67ST 

A spreadsheet for the ST based on the popular Lotus 1-2-3. 

Abacus Books (Abacus Software, Inc.) DouglaS Weir 76ST 

Three recently introduced ST guides are reviewed. 



cowms 

ST News 48ST 

C-Manship, Part 5 Clayton Walnum 69ST 

Storage classes and arrays are examined this month. 

ST Index to Advertisers 78ST 




v/ 



ST NEWS! 



PRO FORTRAN-77 

Prospero has announced Pro Fortran-77, a compiler that enables developers to recompile 
existing mini and mainframe software, to run on the ST line. 




The original Fortran-77 is a very popular high-level programming language, often chosen 
by engineers, academics and scientists for their demanding work. 

Pro Fortran-77 retails for $149.99. For more information, write: Prospero Software, 190 Cas- 
telnau, London, England SW13 9DH, or call 01-741 8531. 
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ARTWORX RELEASES FOR THE ST 

Compubridge and Bridge 4.0, both popular programs for the 8-bit Ataris, are now available 
for the 16-bit machines. Compubridge is a basic bridge tutorial, compiled from the Five Card 
Ma}or Bridge Teacher's Manual by Shirley Silverman. The program has ten chapters of text 
and has eight sections of quizzes. While you play "test" games, the computer analyzes your 
moves and suggests alternates. 

Bridge 4.0 allows you and your computer partner to bid against two computer opponents, 
then play out the hand. This comprehensive bridge-playing game is similar to the newspaper 
column, with replay of selected hands, rotation of players' cards and a built-in referee. 

Each bridge program retails for $29.95. Available from Artworx Software Company, Inc., 150 
North Main Street, Fairport, NY 14450. circle #i69 on reader service card 



OTHER NEWS 

In Championship Golf: The Great Courses 
of the World, Gamestar has released Volume 
1: Pebble Beach. 

Actual topographical maps were used, to 
authentically recreate the course itself. All 
eighteen holes are placed, along with traps, 
roughs and trees. Even an ocean breeze is 
added into the play, in which up to four can 
compete. A driving range and putting green 
are available for practice and/or warmup. 

For information, contact: Gamestar/Acti- 
vision. Inc., 2350 Bayshore Frontage Road, 
Mountain View, CA 94043 — (415) 960-0410. 
circle »i7o on reader service card 

■ ■ ■ 

Introduction to Sound and Graphics on the 
Atiui ST, by Tim Knight, has been published 
by COMPUTE! Books. 

Included in this 195-page volume are sec- 
tions on creating graphics using LOGO and 
FORTH, generating sound effects, drawing in 
BASIC, setting up your ST and using GEM. 

The retail price is $14.95, from COMPUTE! 
Books, 324 West Wendover Avenue, Suite 200, 
Greensboro, NC 27408. 
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Compubridge. 



SOFTWORKS BASIC 

This new BASIC for STs is chock full of fea- 
tures. Advanced data structures, the ability 
to call machine language routines, superior 
string manipulation, full error detection, and 
sequential and random access disk filing are 
only some of its abilities. 

Softworks BASIC consists of a compiler, 
runtime package and support library. The 
compiler converts source files created by the editor into tokenized files which the runtime 
system executes. The support library is made up of example programs and Atari interface files. 

For $79.00, Softworks Limited, 2944 N. Broadway Chicago, IL 60657 — (312) 975-4030. 
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10-MEGABYTE DRIVE 

Haba is now shipping their external 10- 
megabyte hard disk drive, which stores the 
equivalent of more than a dozen double-sided 
800K disks. 




I^^^^^^^H ^gg|i 






Access time with the hard drive is much 
faster, using a data transfer rate of 5 mega- 
bits/second. 

Complete with ST interface cable, the drive 
lists for $699.95. From Haba/Arrays, Inc., 6711 
Valjean Avenue, Van Nuys, CA 91406 — (818) 

994-1899. CIRCLE #130 on reader service CARD 
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ST 

Calculator 



More on using LOGO 



by Alain Birtz 



The ST is one of the most powerful microcomputers 
currently on the market. Its low price, together with 
the GEM mouse-driven user interface, its exceptional 
graphics capabilities and its 68000 microprocessor, 
make it one of the most attractive machines available. 

Its only defect (rapidly being remedied) is its lack 
of programming languages. The new ovwier of an ST, 
as a rule, has to settle for two languages: ST BASIC 
and DR LOGO. Although the LOGO itself is of high 
quality, the manual leaves something to be desired. 
It consists of a series of technical definitions of lan- 
guage statements, totally devoid of programming ex- 
amples. This is a great obstacle for a LOGO novice. 
Program examples are absolutely necessary, and mag- 
azines like ANALOG Computing will have to pro- 
vide the forum for any examples. 

ST Calculator is written in LOGO for the ST. It al- 
lows numerical calculations similar to those of an or- 
dinary hand-held calculator, which are carried out 
by clicking the mouse on the Calculator's keys. It con- 
sists of six procedures and is activated by calling the 
procedure C. 

The first thing to happen when you call C is that 
the text window is cleared and a message is print- 
ed. These are done by the first four lines of C. 

Next, the graphics window is cleared, the word 
CaJcuJator is printed (using the procedure TT, which 



allows one to print text in the graphics window), and 
the rectangles representing the Calculator and its 
window (where its ntunbers are displayed) are drawn 
(Lines 6-11). The variable Y^Y.IAST is defined in Line 
12; it contains the symbols for each of the Calcula- 
tor's keys. 

Next, the procedure KEY is called. KEY draws the 
Calculator's keys. It takes four parameters: NO, a 
counter; KEYCHR, which receives KEY. LIST as a val- 
ue; and XX and YY, the coordinates of the rectan- 
gles forming the keys themselves. 

KEY is a recursive procedure: it will call itself six- 
teen times, each time drawing one key and decre- 
menting the counter NO. When the counter equals 
0, KEY terminates, and execution returns to Line 14 
of C. The cursor is then positioned at the Calcula- 
tor's view window, and certain variables are initial- 
ized. C terminates by calling ACT. 

ACT is an infinite loop. It calls itself after every 
click of the mouse's button. It determines the mouse 
state and transfers this information to the variable 
C\JY{. If the mouse's button is depressed (i.e., clicked), 
the third item in CUR has the value TRUE, and the 
procedure KEEP is called; if not, nothing happens. 
Then ACT is called again. 

The MOUSE primitive is slow; the time it takes 
to respond to a click is great. Therefore, it's advis- 
able to set the control panel response rate for the 
mouse button at maximum (4). 



ST-L0(3 
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ST Calculator 



continued 



PRESS FDWLT OH THE MOUSE 
rO HfKE H SELECriOH 



At this point in the program, we've drawn the Cal- 
culator, its window and its keys, and we have a proce- 
dure which tells us when the mouse button has been 
clicked. Now we need some way of determining on 
which key the mouse has been clicked. This task is 
accomplished by the procedure KEEP. 

Imagine the area occupied by the Calculator's keys 
as a grid of seven rows and seven columns, corre- 
sponding to the four rows of the actual keys as well 
as the three rows between the keys. 

From the position of the mouse's arrow on the 
screen, KEEP calculates the variables X and Y as 
values along the row (2-8} and along the column {0-6} , 
respectively, where the arrow is located. If either X 
or Y is odd, then the arrow is between rows or col- 
umns (it cannot be pointing to a key), and nothing 
happens (line four of KEEP) . 
Ptsli File Bui) Edit Settlnns 



LOBO DIHLOBUt 
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Figure 1. 

Otherwise, KEEP calculates the value of the vari- 
able K in such a way that K gives the number of the 
item in KEY. LIST corresponding to the key select- 
ed. For example, if the / key (division operator) is 
selected, X and Y have the values 8 and 2. K then 
gets the value 8, and the eighth element of KEY. LIST 
is (voiJa.'j /. 

Two variables are used to perform calculations. B 
contains the "current" value, the number currently 
displayed in the Calculator's window. A contains the 
second value, held in memory. 

Initially A and B are set to 0. If a numerical key 
f0-9j is clicked, KEEP modifies B to reflect the new 
value of the current number. It displays this updated 
number (via the procedure DISPLAY) in the Calcula- 
tor's window. If the key is not numeric, then KEY 
calls the procedure OPER. 

OPER takes the values of A and B, carries out the 
operation determined by K (in the example above, 



this would result in the operation A/B), places the 
result in B, sets A to and displays the value of B 
by calling DISPLAY. 

If K yields the operation C (clear), both A and B 
are set to 0. Control is then returned to ACT, which 
waits for the next click of the mouse button. 

All that's left is to show how DISPLAY works. First, 
we must understand how objects are displayed on 
the graphics screen. 

When a character is sent to the screen, each of its 
pixels is "ored" with the value of the corresponding 
screen pixel. Thus, the new object is, in a sense, "ad- 
ded" to what's already on-screen. 

For example, if the character 3 is displayed over 
a 4, the resulting display will be a combination of 
the two characters. Displaying more and more char- 
acters at the same location will finally result in a com- 
pletely black space. 

So we must first erase the previous character when- 
ever we want to display a new character in the same 
location. To do this, we change the display mode with 
the primitive PX (PENREVERSE) and "reprint" the 
old character, effectively erasing it. After this, we can 
display the new character. 

The number to be displayed is contained in TX, 
and the number previously displayed is in DP. DIS- 
PLAY erases DP with the sequence PX TT :DP, then 
assigns the value of TX to DP and, finally, displays 
DP a 



Attention: In this listing, the exclamation points 
at the end of program lines shouldn't be typed 
in. They are there to indicate that the statement 
wraps around to the next line. 



Listing 1. 
LOGO hsting. 

TO C 

CT PRINT [3 PRIMT 11 

PRIMT tPRESS FIRMLY ON THE HOUSE] 

PRINT ITO MAKE A SELECTION] 

CS HT HOME ; BY ALAIN BIRTZ 

PU SETPOS [-20 130] PD 

TT CHORD CHAR 14 CHAR 15 "CALCULATOR! 

) 

BOK £-90 -150 180 3003 

BOX t-95 -155 190 3103 

BOM [-70 70 140 30] 

BOX [-72 68 144 34] 

MAKE "KEY. LIST [123*456/78 ! 

9 - C = +3 

KEY 16 : KEY. LIST -70 

PU SETPOS [-40 781 PD 

MAKE "DP [] 

MAKE "A MAKE "B 

ACT 

END 

TO KEY :N0 :KEY.CHR :XX :YY 
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IF -.MO = ISTOPl 

BOX CLI5T :XX :YV "29 •'2e> 

PU 5ETP05 CLIST :XX + 6 : YY * 4J PD 

TT FIRST ZKEY.CHR 

IF REMAINDER :N0 4 = 1 tKEY :N0 - 1 ! 

BF :KEY.CHR :XX - 126 :YY - 40 STOP! 

KEY :ND - 1 BF :KEY.CHR :XX * 40 :YY 

END 



PX TT :DP IMKE "DP 
END 



;TX TT :DP 



'OP :K NA! 



TO OPER 

IF :X = 8 (HAKE "A :B MAKE 

KE "B DISPLAY CU 

IF :K = 15 [IF :0P = 4 [MAKE "B :A »'. 

:B1 IF :0P = 8 [MAKE "B :A / :B1 IF! 

SOP = 12 [MAKE "B :A - :B1 IF :0P =! 



TO ACT 




16 [MAKE "B :A + :B] DISPLAY :B] 


MAKE "CUR WUSE 




IF :K = 14 [MAKE "A l«KE "B DISP! 


IF ITEM 3 :CUR = "TRUE [KEEP J 




LAY [31 




ACT 




END 




END 












MAKE "GFILL "FALSE 


TO KEEP 




MAKE "CUR [-22 


-111 FALSE FALSE TRUE! 


MAKE "X INT Clio + FIRST :CUR) 


/ 20 


3 




MAKE "Y INT 120 - ITEM 2 :CUR) 


/ 20 


MAKE "Y 6 




IF fOR :X < 2 :X > 8 :Y > 6 :Y 


< R! 


MAKE "X 4 




EMAINDER :X 2 = 1 REMAINDER :Y 


2 = 1! 


MAKE "KEY. LIST 


[123*456/78 ! 


} [STOP! 




9 - 8 C = *3 




MAKE "K f:X ♦ 4 » :Y} / 2 




IMKE "K 14 




IF COR :X = 8 :K > 13J [OPER ST0P3 


MAKE "C "tt tt tt 


tt tt tt tt tt 


MAKE "B 10 « :B + ITEM :K :KEY 


LIST ! 


MAKE "B 




DISPLAY :B 




MAKE "A 




END 




IMKE "OP 4 
MAKE "DP [3 




TO DISPLAY :TX 




• 





Megamax C 



for the 



Atari ST 



Featuring 

• One pass Compile • In-Line Assembly • Smart Linker 

• Full Access to GEM routines • Register Variable 
Support • Position Independent Code • and much more.. 

System Includes: 

• Full K&R C Compiler (with common extensions) 

• Linker • Librarian • Disassembler • C Specific Editor 

• Code Improver • Documentation » Graphical Shell 



Benchmark ^rP''^ ^i^f*^"'' Size 
Time Time 

Sieve 70 2.78 5095 

"Hello, world" 63 N/A 4691 

♦Times in seconds. Sieve with register variables. 



$199.95 For more information, call of write: 

Megamax, Inc 

Box 851521 
Richardson, TX 75085 

(214) 987-4931 

VISA, MC, COD ACCEPTED 




ATARI ST USERS!* 

ENTERTAINMENT JACKPOT 

20 BIG PROGRAMS WRITTEN IN ST BASIC 

72 PAGE MANUAL INCLUDED 

ALL FOR ONLY $34.95 



THE VISITOR 

Text adventure with graphics Your smart 
but odd corttpanion must rendezvous with 
Its mother ship. 

BOMB SQUAD 

Text adventure with graphics. Find the ter- 
rorists' bombs in time 

ADVENTURE CREATOR 

Write vour own adventure games. Exten- 
sive how-to-do-it instructions A "frame- 
work program" is provided so you can fill 
in the details of your own games. The pro- 
gram is analyzed in detail. A powerful, fast 
machine language parser routine is pro- 
vided and explained. BASIC graphics sub- 
routines included. 

THERAPIST 

Talk to" your ST in natural English and it 
responds like a counselor. Similar to the 
famous ELIZA but "smarter" 

MANSION 

Text adventure Find the second Mona 
Lisa. 

3-D TIC TAG TOE 

Challenging complexity. 

COLOR MONITOR 
REQUIRED 

(Disk and Manual). 

Only $34.95 (S43.95 Canadian): IM.O.. 

VISA, MASTERCARD (include expiry). 

•T M Atari Corp. 



THE WRITER 

Watch your ST write poetry and prose, 
personalize the vocabulary and charac- 
ters for party entertainment. 

CASINO 

Lose your money at home 
Includes Roulette, Blackjack, Craps, 
Cards — Faro, Baccarat, Draw Poker, Slot 
Machine. Wheel of Fortune, Keno 

OTHELLO 

Beat the computer 

CHECKERS 

A classic. 

CRIBBAGE 

The popular card game. 

BACKGAMMON 

The ST is aggressive. 

MENTAL 

A great "psychic" illusion The ST seems 
to possess amazing abilities. 

ANALYSIS 

Convincing "personality analyses" — just 
for fun. Mimics such things as "color anal- 
ysis" machines and explains how they 
work. 



CHARGE CARD ORDERS ONLY 
Ph 800-628-2828 Ext 635 



MARTIN COIMSULTING 
94 Macalester Bay 
Winnipeg, Manitoba 
Canada R3T 2X5 
(204) 269-3234 
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VIP Professional" 

Finally - A Business Program that Brings 
Lotus 1-2-3® Functionality to Your Atari ST^l 



VIP Professional is a state-of-the-art, integrated 
spreadsheet program which brings together a spread- 
sheet, a database and graphing capabihties. Professional 
was modeled after the powerful and best-selling Lotus 
1-2-3* program which dominates the business world 

Worksheet Magic 

Nothing is left out of the workings of the worksheet. Ranges of 
cells can be named for convenience; column widths are variable; 
the screen can be split into two windows; titles can be frozen; 
contents of cells may be copied or moved; the worksheet may be 
altered as a whole or only partially; the list goes on and on. 
Perhaps most important, Professional can use and save Lotus 1-2-3 
files for transfer between computers. 

The worksheet includes over 45 special functions to simplify 
commonly used formulas, including powerful financial functions 
for the internal rate of return, present value, and future value. Of 
course Professional also has all mathematical, trigonometric, table, 
conditional and logical functions. 

Database Power 

The built-in database can handle up to 8192 records, with a 
possibility of up to 256 fields. The records can be searched, sorted 
and analyzed to find your best salesperson or your rarest stamp. 
Sorts can be done using multiple criteria, in ascending and 
descending order. And database functions can be used to do up to 
seven different kinds of statistical analyses of your database. 

Graphs 

The graphing capabilities of Professional are astounding. Not 
only are there six completely different types of graphs available, 
there are tens of ways to manipulate the data, titles, grids, colors, 
legends, keys, and scaling of the size of the graph. 

Macros 

Professional also includes sophisticated macro programming 
commands. With several special macro commands, the user can 
actually program Professional to be dedicated to a specific task 
such as accounting. 

Just Minutes to Learn 

Professional is as easy to use as it is powerful. It comes with a 
user-sensitive tutorial for the newcomer. And help is built right 
into the program. With the handy tutorial, you will be able to 
create professional worksheets in just minutes. 



Introducing Professional LITE" 

For those of you who do not need the full power of 
Professional, we offer Professional LITE™. Though without the 
macros and the database features, and having a smaller sheet size 
(256 columns by 2048 rows, LITE still packs a powerful punch 
for only $99.95! 
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Hauschold Budget for 1185 

Hortgage Car Payncnts Education 

$588,88 $288.08 $188.00 
$582.58 $281.80 SI81.50 
$585.81 $212.08 S38I.81 
$507,54 $203,82 $304,52 


Food 

$258,00 
$251,25 
$252,51 

$253,77 


Insurance 

$158,08 
$158,75 
$151,58 
$152,26 


III 




1-85 
?-85 
8-85 
V85 
18-85 
U-8S 
12-85 


$510,08 $204,03 $306,05 
$512,63 $285,85 $307,58 
S515,H $286,88 $305,11 
$517,76 $287,11 $318,66 
$528,35 $288.14 $312.21 
$522,56 $205,18 $313,77 
$525,57 $218,23 $315,34 
$528,28 $211,28 $316,12 


5255,04 
$256,31 
$257,55 
$258,88 
$268,18 
$261,48 
, $262,71 
$264,10 


^sisH^^^ 

$153,75 
$154,56 
$155,33 
$156,11 
$156,85 
$157,67 
$158,46 






""" 1 



Integrated Spreadsheet Power 



Five Vear Stock Portfolio Analysis 

Five Itir SuMipa 




1582 im 1964 
Veirly Breakdoun 



Easy-to-Use Graphs 



The Power of Professional 

Only $179.95 

Or the Power of LITE 

Only $99.95 

If yoxir dealer is out of stock, order direct. Send your check or 
money order to the address below, together with $3 for shipping 
and handling. In California add 6% sales tax, COD's and purchase 
orders not accepted. Personal checks will be held for three weeks to 
clear. All prices are subject to change without notice. 



technclcgies — 



132 Aero Camino 
Santa Barbara 
California 93117 

(805) 968-9567 



SYSTEM REQUIREMENTS: Amiga with 5I2K:; One disk drive; Monochrome or 
color monitor; Works with printers supported by the Workbench. 

VlPProfessiona], Professjooal, Professional LITE ind LITE ire trademarks of VIP Technologies 
Corpora^ on' 1-2-3 and Lotus 1-2-3 arc registered trademarks (rf Lotus DevdopmeotCMp.; Auh, ST, 
5205T, aod 10405T axe uademarkds of Alan Corpcratioo. 

Copyright© 1986 by VIP Technologies Coiporatioo 



TUTORIAL 



w 



VDI 

Sampler 

Functions from 
ST BASIC 



Desk File Run Edit Debug 




by James Luczak 



ST BASIC has a command to allow you to perform 
graphic operations — that used to take a lot of involved 
programming — quickly and easily. And it's fast. We're 
talking about the VDISYSO command. 

The VDISYSO command gives you access to GEM's 
Virtual Display Interface (VDI) functions. Among oth- 
er things, GEM'S VDI has a full set of graphic func- 
tions to perform all sorts of graphic operations. 
Circles, ellipses, pie shoes, rectangles, polygons and 
special effects text are only a few of the many opera- 
tions you can utilize with the VDISYSO command. 
The VDI Sampler program. 

The VDI Sampler has three purposes. First, it con- 
tains the BASIC code required to call many of the 
VDI fimctions (Lines 3730 through 6340). Second, 
it demonstrates how VDI functions can be used in 
a program. Third, it displays many of the patterns, 
styles and special effects that can be put to use with 
VDI fimctions. 

All graphics operations used in this program are 
performed with the help of the VDISYSO command. 
Using the VDISYSQ command. 

VDISYSO is very easy to use; Figm-es 1, 2 and 3 
contain all the necessary information to do so. The 
BASIC code required to employ the VDI functions 
is in the VDI Sampler program. Lines 3730 through 
6340. 

I found it easiest to set up the BASIC code for each 



function as a routine which can be called with the 
GOSUB command. Whenever you want the function, 
all you have to do is set whatever variables the VDI 
routine currently has to the desired value, then use 
a GOSUB to do the operation. 



VDI COLOR INDEX 



Index Number Color 

White 

1 Black 

2 Red 

3 Green 

4 Blue 

5 Cyan 

6 Yellow 

7 Magenta 



Index Number Color 

8 Low White 

9 Grey 

10 Light Red 

11 . . , Light Green 

12 Light Blue 

13 Light Cyan 

14 Light Yellow 

15 Light Magenta 



Figure 1. 

Figure 1, above, contains the COLOR INDEX values 
used by all the VDI functions. Figure 2 , below, gives 
the DEFAULT values to which various functions are 
set. 



VDI DEFAULT VALUES 
Attribute Default Value 

Character Height Low Resolution 6 

Medium Resolution 8 

Character Baseline Degree Rotation 

Text Style — Normal Intensity 

Polymarl<er Height 1 — Smallest Size 

Polyline Endstyle — Squared 

Writing Mode 1 — Replace 

Perimeter Visibility 1 — Visible 



Figure 2. 



STLOG 
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ATARI 520ST SYSTEM PACKAGE 



Comes complete with 520ST 
computer with modulator, disk 
drive, mouse, logo, Basic, 
1st Word, and monochrome 
or color monitor. 



HABA 
DISK 





MONOCHROME SYSTEM 

$64900 

COLOR SYSTEM 

$79900 



M < M I U J, U ., 
iiitiiiiiii 



10 Meg HARD DRIVE 



SUPRA MODEM 




ATARI 314 

1 Mag Double SMad 
DISK DRIVE 

$21900 



ANCHOR 
520 

Direct Connect MODEM 

300/1200 Baud 



CITIZEN 

MSP-10 (80 col.) $279.00 

MSP-15 (132 col.) $389.00 

MSP-20 (80 col.) $349.00 

MSP-25 (132 col.) $509.00 

C.ITOH 

Prowriter 7500 $179.00 

Prowriler 1S50P $349.00 

Starwriter 10-30 $399.00 

EPSON 

Homewriter 10, LX80 CALL 

FX85, FX286, RX100 CALL 

SQ2000, HI80, HS80, AP80 CALL 

LQ800, LQ1000 CALL 



— PRINTERS — 



JUKI 

6000 Letter Quality CALL 

6100 Letter Quality CALL 

6200 Letter Quality CALL 

6300 Letter Quality CALL 

5510 Dot Matrix CALL 

LEOEND 

808 Dot Matrix 100 ops $179.00 

1080 Dot Matrix 100 Ops $259.00 

1380 Dot Matrix 130 cps $289.00 

1385 Dot matrix 165 cps $339.00 



NEC 

3000 Series $799.00 

8000 Series $1099.00 

ELF 360 $449.00 

Pinwriter 560 $999.00 

OKIDAT* 

182, 183, 192, 193, 2410, 84 CALL 

Okimate 10 (Specify C64/Atari) »189«' 

Okimate 20 (IBM) CALL 



PANASONIC 

KX1091 $259.00 

KX1092 $389.00 

KX1093 $479.00 

STAK 

SB/SD/SG/SR Series CALL 

Powertype Letter Quality CALL 

TOSHIBA 

1340 (80 column) $399.00 

P341 (132 column) $799.00 

P3S1 (132 column) $1069.00 



BATTERIES INCLUDED 

D.E.G.A.S $27.99 

INFOCOM 

Cutthroats $29.99 

Deadline $34.99 

Enchanter $29.99 

Hitchhiker's Guide $29.99 

Infidel $34.99 

Planetfall $29.99 

Sea Stalker $29.99 

Sorcerer $34.99 

Starcross $34.99 

Suspect $29.99 

Suspended $34.99 

Wishbringer $29.99 

Witness $29.99 

Zork I $29.99 

Zork II $29.99 

Zork III $29.99 

MINDSCAPE 
Deja Vu $37.99 

Personal Pascal $49.99 



— SOFTWARE — 



= PROFESSIONAL 

A jazi'ed-up 1-2-3 
for your Atari 520ST! 

• Spreadsheet 

• Database 

• Graphs 



HABA/ARRAYS 

HIppo-C $44.99 

Business Letters $29.99 

Write Your Own Will $29.99 

Haba Writer $44.99 

Habadex Phonebook $29.99 

Habamerge $12.99 

Checkmlnder $39.99 

Mall Room Manager $39.99 

MUSE SOFTWARE 

Final Word $99.99 

Hex $27.99 

PC Intercom $79.99 

ACTIVISION 

Hacker $29.99 

Borrowed Time $32.99 

MIRAOE 

Express $34.99 

SIERRA-ON-LINE 

Ultima II $39.99 

King's Quest $37.99 

PENQUIN SOFTWARE 
Crimson Crown $29.99 



BLANK DISKETTES 
ELEPHANT 

(10) 3V2" SS $24.99 

MAXELL 

(10) 3V2" SS $18.99 

(10) 3V2" DS $29.99 

(5) 3V2" SS w/Flip'n File.$9.99 

AMARAY 

Disk Tub 3V2" $9.99 

CURTIS Surge Suppressors 

CUSP2, Emerald $39.99 

CUSPF2, Ruby $59.99 

CUSP1, Diamond $29.99 

CUSP3, Safety Strip $19.99 





CALL TOLL-FREE 1 -800-233-8950 

477 East Third Street, Dept. B706, Williamsport, PA 17701 

POUCY: Add 3% (Minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to clear. For faster delivery 
use your credit can) or send cashier's check or bank money order. Pennsylvania residents add 6% sales tax. All prices are subject to change and all items are subject to availability. 
Defective software will be replaced with the same item only. Hardware will be repaired or replaced at our discretion within the the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. 




1-800-268-3974 

Ontario/Quebec 



1-800-268-4559 

Other Provinces 



— CANADIAN ORDERS — 

All prices shown are for U.S.A. orders. 
Call the Canadian Office for Can. prices. 



1-416-828-0866 

In Toronto 



T*l«xK>6-2 18960 

2505 Dunwin Drive. 

Mississauga, Ontario 

Canada L5L1T1 
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VDI Functions corUtnued 



Our third figure, on the following page, provides 
a description of most of the VDI functions used by 
the program. Some VDI functions are self explana- 
tory; these are not included in the description. 

The attributes referred to in Figure 3 are VDI func- 
tions that can be used to modify the appearance of 
another VDI function. For example, if you're draw- 
ing a circle and want it to appear as a filled disk, 
you could use the "fill interior style" function with 
a value of 1 (solid) before drawing the circle. Now, 
every time you draw a circle it will be filled with 
a solid color. 

Using the VDI Sampler. 

The Sampler is written for a low-resolution color 
system. If you don't have TOS in ROM yet, remove 
all desk accessories and turn buffered graphics off 
before loading the program. 

The Sampler opens with a title page that will re- 
main on-screen for approximately 5 seconds. (If you 
want to keep the title page on for a shorter or longer 
period, change the value in Line 6370 of the pro- 
gram.] 

After the title, the main menu screen will appear. 
At the bottom of this is a menu bar. Use the mouse 
to click on any of the menu options. You'll hear a 
"beep" when you click on a valid option. Each op- 
tion will display its introduction page, with a menu 
bar. Click the mouse on one of the options, and that 
option will be displayed. 

The values which appear on some of the displays 
correspond to those in Figvire 3. To return to the main 
menu, click on the Main Menu option located on the 
right of the menu bar. To exit the program, select the 
quit option on the main menu — or click the right- 
hand mouse button. 

I find this a handy program to preview styles, pat- 
terns, special effects, and so forth — before using them 
in a program. The data statements at the end of the 
program contain text (in ASCII form], X- and Y- 
coordinates, and some color information used in VDI 
Sampler, fl 

James Luczak bought his first Atari in 1980 and has, 
since 1979, written programs in BASIC, C, LOGO, 
FORTH and Action!, plus 6502 assembly. He enjoys 
writing dedicated database programs. 

Listing 1. 

BASIC listing. 

lOe 'A V.D.I. SAMPLER FROM 5T BASIC 
lie ■ MKKKKMMM by JIM LUCZAK KKmCMKMK 

120 att=gb:gintin=peekCatt-i'8} :gintout=pe 

ek(a«^l2) 

130 din coordC25) jCharC50),Hl(26) 



140 a5ClJ="P L V L I M E S" 

150 a$t2J="P OLYMARKE 

R S" 

160 aSC3>="T E X T" 

170 a$C4}="F ILL P A T T 

E R M S" 

180 aSC5}="P RIMITIUE 

S" 

190 f x=l : f y=22 : f xl=304 : f yl=188 : dth=6 

200 • DO TITLE PAGE 

210 fullH 2:clearw 2 

230 rt=3:wH=l: fis=l: fci=l:cx=fx:cy=fy: 

cxl=fxl:cyl=fyl 

240 gosub D0SHAPE:wn=2:gDsub MHODE:plc 

=2:gosub PCOLOR 

250 i d=6:sa=2700:ea=900:cx=l:c 9=105 :ra 

dx=304:rady=83 

260 gosub ELLARCPIE 

270 while rady>40 

280 rady=rady-2:poke ptsin+6,rady :vdis 

ysfl) 

230 wend 

300 plc=10:gosub PCOLOR 

310 sa=900 : ea=2700 : cx=304 : rady=S3 

320 gosub ELLARCPIE 

330 While rady>4e 

340 rady=rady-2:poke ptsin+SfPady :vdis 

ysfl) 

350 wend 

370 rt=5:wH=l: f is=l: fsi=0: fci=l:cx=152 

: cy=47 : radx=ieo : rady=25 

380 gosub DOSHAPE 

390 rt=5:wH=2: f is=2: fsi=3: fct=3:gosub 

DOSHAPE 

480 rt=5:wM=l: f is=l: fci=l:cy=163:radx= 

125:gQSUb DOSHAPE 

410 rt=5:wi«=2: f is=2: fsi=19: fci=4:gosub 

DOSHAPE 
438 rt=l:wi<i=l: f is=l: fci=3:cx=70:cy=163 
:rad=2e 

440 gosub DOSHAPE 
450 rt=l:wn=2: f is=2: fsi=16: fci=2:gosub 

DOSHAPE 
460 rt=l:wM=l: f is=l: fci=2:cx=235:gosub 

DOSHAPE 
470 rt=l:wH=2; f is=2: fsi=20: fci=6:gosub 

DOSHAPE 
480 WH=2: gosub HMODE 

500 tc =15 : th=24 : te=4 : cx=110 : cy=54 : gosu 
b DOTEXT 

510 tc =5 : th=28 : te=16 : cx=45 : cy=115 : gosu 
b DOTEXT 

520 tc=8 : th=dth : te=4 : cx=130 : cy=148 : gos 
Ub DOTEXT 

530 tc=6:th=15:cx=97:cy=170:gosub DOTE 
XT 

540 tc=ll:th=dth:cx=110:cy=185:gosub D 
OTEXT 
550 gosub TIMER :Menu=0: gosub MENUES 

560 • MAIN PROGRAM LOOP 

570 poke gintin,3:geMsyst78) 

580 poke gintin,257:geHsysC78) 

590 poke syst3b+24,l 

600 While i*key<>2 

610 geHsysC79) 

620 Mx=peek(gintout+2) :Hy=peek(gintout 

♦4) :»key=peek<gintout+6) 

630 if Mkey=l then gosub CHECKM 

640 wend 

650 • CLEANUP AND END 

660 poke systab-i^24,e 

670 poke gintin,0:ge«sys<78J 

688 poke gintin,25e:geMsysC78) 

690 rt=l:tc=l:th=dth:te=0 

700 gosub DOTEXT 

710 sound 0,0,0,8,0:clearw 2:end 

730 CHECKM: 

740 if ny<180 or ny>189 then return 
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VDI Functions continued 



VDI FUNCTION DESCRIPTIONS 



POLYMARKER — A polymarker is similar to the PLOT command. One or more polymarkers can be dis- 
played simultaneously in diflerent styles and colors. 
Line 3730 Menu — Marker 

ATTRIBUTES ATTRIBUTE LINE • 

Polymarker Type 3820 

Polymarker Height 3890 

Polymarker Color 3970 

Writing Mode 5000 

NOTE: Each polymarker needs an X- and Y-coordinate For example, to display two polymarkers. 

you must give ttie X- and Y-coordinates lor eacti marker, a total of four coordinates. 

POLYMARKER TYPE - Identifies polymarker style. 

Line 3820 Menu — Marker Item — Type 

MARKER TYPE VALUE DESCRIPTION MARKER TYPE VALUE DESCRIPTION 

1 Dot 4 Square 

2 Plus Sign 5 Diagonal Cross 

3 Asterisk 6 Diamond 

POLYLINE — Draws one or more lines simultaneously in different styles, colors, widtfis and end types. 
Line 4040 Menu — Lines 

ATTRIBUTES ATTRIBUTE LINE » 

Polyline Type 4130 

Polyline Widtti 4200 

Polyline End Style 4280 

Polyline Color 4360 

Writing Mode 5000 

NCfTE: Each polyline requires four coordinates: X- and Y-coordinates for the starting point of the 

line and those for the line's ending point. For example, to draw two polylines, indicate two X,Y 

pairs (Line 4060) and provide X- and Y-coordinates for the sianing and ending points for each line 

a total of eight coordinates 

POLYLINE TYPE - Identifies type of polyline 

Line 4130 Menu — Line Item — Type 

POLYLINE TYPE VALUE DESCRIPTION POLYLINE TYPE VALUE DESCRIPTION 

1 Solid Line 4 Dash-Dot Line 

2 Long Dash Line 5 Dash Line 

3 Dot Line 6 Dash-Dol-Dot Line 

POLYLINE ENDSTYLE - Identifies end style of polyline. 

Line 4280 Menu — Lines Item — Endstyle 

ENDSTYLE VALUE DESCRIPTION 

» Squared 

1 Arrow 

2 Rounded 

TEXT — Writes text to any X,Y coordinate on the display screen. 
Line 4430 Menu — Text 

ATTRIBUTES AnRlBUTE LINE « 

Text Color 4540 

Text Special Effects 4610 

Text Height 4680 

Text Baseline 4930 

Writing Mode 5000 

NCfTE: Characters are referred to by their ASCII value 
TEXT SPECIAL EFFECTS - Identifies the text style to be used. 

Line 4610 Menu — Text Item — Effects 

SPECIAL EFFECTS VALUE DESCRIPTION SPECIAL EFFECTS VALUE DESCRIPTION 

1 Thickened 8 Underlined 

2 Intensity - Light 16 Outlined 

4 Skewed 32 Shadowed 

NOTE: Any combination ol special effects can be used. If, for example, you wanted skewed out- 
lined text, add the values 4 (skewed) and 16 (outline) together, and use the result (20) as the spe- 
cial effects value, 

WRITING MODE — Identifies how subsequent drawing operations will be performed. 
Line 5000 

WRITING MODE VALUE DESCRIPTION WRITING MODE VALUE DESCRIPTION 

1 Replace 3 XOR 

2 Transparent 4 Reverse Transp 
NOTE: The writing mode specifies the operation performed between the current pixel color and 
the existing pixel color The action of the writing mode is most easily observed when using the 
text or fill pattern functions, 

ARC or PIE — Draws an arc or pie slice. 

Line 6070 Menu — Shapes Item — Arc/Pie 

ATTRIBUTES ATTRIBUTE LINE « 

Polyline Type 4130 ARC 

Polyline Width 4200 ARC 

Polyline End Style 4280 ARC 

Polyline Color 4360 ARC 

Fill Interior Style 6080 PIE 

Fill Style Index 6150 PIE 

Fill Color 6220 PIE 

Perimeter Visibility 6290 PIE 

Writing Mode 5000 ARC/PIE 

NOTE: This function will draw an arc or a pie, depending which primitive ID you specify (ARC 

- 2, PIE ~ 3). Angles are referred to in tenths ol a degree (0-3600). The function draws in a coun- 

terclockwise direction. Zero degrees is 90 degrees to the right of vertical, with values increasing 

in a counterclockwise direction. 



BAR — Draws a bar 










Line 5210 




Menu — Shapes Item — 


Bar/Circle 




ATTRIBUTES 




ATTRIBUTE LINE 1 






Fill Interior Style 




6080 






Fill Style Index 




6150 






Fill Color 




6220 






Perimeter Visibility 




6290 






Writing Mode 




5000 






CIRCLE - Draws a circle. 










Line 5320 




Menu — Shapes Item — 


Bar/Circle 




ATTRIBUTES 


ATTR. 


LINE 1 ATTRIBUTES 


ATTR, 


LINE* 


Fill Interior Style 


6080 


Perimeter Visibility 


6290 




Fill Style Index 


6150 


Writing Mode 


5000 




Fill Color 


6220 








ELLIPTICAL ARC or PIE - 


Draws an 


elliptical arc or pie slice 






Line 5450 




Menu - Shapes Item - 


EILArc/Pie 




ATTRIBUTES 


ATTR, 


LINE • ATTRIBUTES 


ATTR. 


LINEK 


Polyline Type 


4130 


ARC Fill Style Index 


6150 


PIE 


Polyline Width 


4200 


ARC Fill Color 


6220 


PIE 


Polyline End Style 


4280 


ARC Perimeter Visibility 


6290 


PIE 


Polyline Color 


4360 


ARC Writing Mode 


5000 


ARC/PIE 






Fill Interior Style 


6080 


PIE 



NOTE: This function will draw an elliptical arc or pie slice, depending which primitive ID you speci- 
fy (Elliptical Arc - 6 Elliptical Pie - 7). Angles are referred to in tenths of degrees (0-3600). The 
function draws in a counterclockwise direction. Zero degrees is 90 degrees to the right of vertical, 
with values increasing in a counterclockwise direction. 

ELLIPSE — Draws an ellipse 

Line 5580 Menu — Shapes Item — Ellipse 

ATTRIBUTES ATTR, LINE » ATTRIBUTES ATTR. LINE » 

Fill Interior Style 6080 Perimeter Visibility 6290 

Fill Style Index 6150 Writing Mode 5000 

Fill Color 6220 

ROUNDED RECTANGLE and FILLED ROUNDED RECTANGLE - Draws a rounded or filled rounded rec- 
tangle 

Line 5690 

ATTRIBUTES ATTRIBUTE LINE I 

Polyline Type 4130 Rounded Rectangle 

Polyline Width 4200 Rounded Rectangle 

Polyline Color 4360 Rounded Rectangle 

Fill Interior Style 6080 Filled Rounded Rectangle 

Fill Style Index 6150 Filled Rounded Rectangle 

Fill Color 6220 Filled Rounded Rectangle 

Perimeter Visibility 6290 Filled Rounded Rectangle 

Wnling Mode 5000 Rounded/Filled Rounded Red, 

FILLED AREA — Fills a complex polygon with the specified color or pattern. 
Line 5800 

ATTRIBUTES ATTR, LINE » ATTRIBUTES ATTR. LINE » 

Fill Interior Style 6080 Perimeter Visibility 6290 

Fill Style Index 6150 Writing Mode 5000 

Fill Color 6220 

EXAMPLE: To use this function to fill a triangle, enter 3 for the number of lines (Line 5820), Give 
the X- and Y-coordinates for the starting point, second point and ending point of the triangle, VDI 
will automatically connect the ending point to the starting point, to form a closed polygon The function 
will then fill the triangle, VDI will not display a form with only one endpoint, 

CONTOUR FILL — Fills an area until it finds the end of the screen or the color specified. 
Line 5890 
ATTRIBUTES ATTRIBUTE LINE » 

Fill Interior Style 6080 

Fill Style Index 6150 

Fill Color 6220 

Perimeter Visibility 6290 

Writing Mode 5000 

NOTE: If you specify a negative value in Line 5930, VDI will search for any color other than the 
seed point 

FILL RECTANGLE — Fills the rectangular area specified. 
Line 5980 
ATTRIBUTES ATTRIBUTE LINE « 

Fill Interior Style 6080 

Fill Style Index 6150 

Fill Color 6220 

Perimeter Visibility 6290 

Writing Mode 5000 

FILL INTERIOR STYLE - Identifies interior style. 
Line 6080 

INTERIOR STYLE VALUE DESCRIPTION INTERIOR STYLE VALUE DESCRIPTION 

Hollow 3 Hatch 

1 Solid 4 User defined 

2 Pattern 

FILL STYLE INDEX - Identifies style index. 
Line 6150 
See menu option FILL for example ol style indices. 
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750 gosub CHECKH0U5EL0C 

760 if hcl=-l then return 

770 sound l,e,ie,4,0:wave 1.1,9,256,0 

780 if hcl=nl/2 and Menu=0 then nkey=2 

: return 

790 if hcl=nl/2 then Henu=e:ft=:0: gosub 

NENUES: return 
800 if Menu=0 then Menu=hcl: gosub NENU 
E5: return 

810 iten=hcl: gosub ITEMS 
820 return 
840 CHECKMOUSELOC: 
850 iM:=0:hc=0:hCl=l 
860 While nc=0 

870 if MX>= Hi Che} and HX<= MKhC+l) t 
hen i4c=l 

880 if MC=0 then hcl=hcl+l 
890 hc=hc*2:if hc>nl then nc=l 
900 wend 

910 if hcl> nl/2 then hcl=-l 
920 return 
940 D05HAPE: 

950 gosub NMODE: gosub FILL5TYLE:gosub 
FILLINDEX: gosub FILLCOLOR 
960 on rt goto 5HAPE1,5HAPE2,5HAPE3,SH 
APE4,5HAPE5,SHAPE6 
970 SHAPEl: gosub CIRCL :rt=0 : return 
980 SHAPE2: gosub BAR :rt=0: return 
990 5HAPE3: gosub RECTFILL :rt=8: return 
1008 SHAPE4: gosub FILLA:rt=0: return 
1010 5HAPE5: gosub ELLIPS:rt=0: return 
1820 SHAPEe: gosub ARCPIE:rt=0: return 
1040 OOTEXT: 

1050 gosub TCOLOR: gosub THEIGHT: gosub 
TEFFECT 

1860 if rt=l then rt=0: return 
1870 read n:for dt=0 to n-l;read charC 
dtJ :next dt 

1888 gosub GTEXT: return 
1100 INTRO: 

1110 restore INTRODATA 
1120 WM=2: gosub HMQDE 

1130 rt=l:tc=4:th=20:te=16: gosub DOTEK 
T 

1140 gotoxy 9,2:?"M e 1 c o n e To" 
1158 rt=l:tc=7:th=28:te=4:gosub DOTEXT 
1160 gotoxy 6,7:?"U 1 5 a n p l e 

r" 
1170 rt=l:tc=9:th=dth:te=0:gosub DOTEX 

1180 gotoxy 2,10:?"Use" 

1190 rt=l:tc=2:te=16:gosub DOTEXT 

1200 gotoxy 6,10:?"MOU5E" 

1210 rt=l:tc=9:te=0:gosub DOTEXT 

1220 gotoxy l2,l0:?"to choose froH men 

u bar" 

1230 rt=l:tc=l!te=16: gosub DOTEXT 

1240 for x=12 to 16 

1250 gotoxy 17,x:?chrSC7>;chr$(2) 

1260 next x: return 

1280 HENUE5: 

1290 poke gintin,256:geMsysC78) 

1300 gosub FINDMENU 

1310 rt=3:wM=l:fis=l:fci=l:cx=fx:cy=fy 

:cxl=fxl:cyl=fyl 

1320 gosub D0SHAPE:WM=2: gosub MMODE 

1330 tc=3:th=dth:te=0:cx=l:cy=186:if h 

enu=5 then th=4 

1348 gosub DOTEXT 

1350 read n:nl=n:for x=0 to n-1 

1360 read Ml Cx): next x 

1370 read cx2,cy2, fci, fcil, fsil,tc 

1380 rt=3:wM=l: f is=l:cx=fx:cy=fy:cxl=f 

xl:cyl=176 

1390 gosub DOSHAPE 

1400 if Menu=0 then gosub INTRO: goto 1 

450 

1410 rt=3:wi*=2:fis=2:fci = fcil:fsi=fsil 



1420 gosub DOSHAPE 

1430 rt=l:th328:te=0: gosub DOTEXT 

1440 gotoxy cx2,cy2:?a$(Menu) 

1450 poke gintin,257:gensys(78) :return 

1470 FINDMENU: 

1480 if Henu=0 then restore MENUODATA: 

return 

1490 on Menu goto MENU1,MENU2,MENU3,ME 

NU4,MENU5 

1500 MENUl: restore MENUIDATA: return 

1510 MENU2: restore MENU2DATA: return 

1520 HENU3: restore MENU3DATA: return 

1530 MENI14: restore MENU4DATA: return 

1540 MENI15: restore MENU5DATA: return 

1560 ITEMS: 

1570 poke gintin,256:geMsysf78) 

1580 on Menu goto MITEN1,MITEM2,MITEM3 

,MITEM4,MITEM5 

1598 MITEMl:on iteH goto ITEM1A,ITEM1B 

,ITEM1C 

1600 MITEM2:on iteH goto ITEM2A,ITEM2B 

1610 MITEM3:on iten goto ITEM3A,ITEM3B 

,ITEM3C 

1620 MITEM4:on iten goto ITEM4A,ITEM4B 

1630 MITEM5:on iten goto ITEM5A,ITEM5B 

,ITEM5C,ITEM5D 

1650 CLEARITEM: 

1660 cx=fx:cy=fy:-cxl=fxl:cyl=176 

1670 rt=3:wM=l:fis=l: gosub DOSHAPE 

1680 WM=2: gosub WMODE 

1690 cx=100:cy=35: gosub DOTEXT 

1700 cx=lO:cy=50:return 

1720 ITEMIA: 

1730 restore ITEMIADATA 

1740 tc=6:th=8:te=16:fci=l:gosub CLEAR 

ITEM 

1750 tc=3:th=dth:te=0:plc=2:gosub PCOL 

OR 

1760 for x=l to 6:plt=x 

1770 gosub PTYPE: gosub DOTEXT :cy=cy+5 

1780 for y=l to 2 

1790 n=2 : c oor d f 0) =10 :coordtl)=cy: coord 

(2J=300:coord(3J=cy 

1800 gosub PLINE:cy=cyi^5 

1810 next y:cy=cy+5:next x 

1828 plt=l:gosub PTYPE 

1838 poke gintin,257:geMsysC78) :return 

1850 ITEMIB: 

1868 restore ITEM16DATA 

1870 tc=5:th=8:te=16:fci3l:gosub CLEAR 

ITEM 

1880 tc=2:th=dth:te=0:plc=3:gosub PCOL 

OR 

1890 for x=l to 7 step 3 

1900 plw=x: gosub PMIDTH: gosub DOTEXT 

1910 cy=cy+5:for y=l to 3 

1920 n=2 : c oord CO J =10 : c oord CIJ =cy : coord 

(2)=30O:coordC3)=cy 

1930 gosub PLINE:cy=cy+10 

1940 next y:cy=cy+x 

1950 next x:plw=l:gosub PMIDTH 

1960 poke gintin,257:geMsysC78) ireturn 

1988 ITEMIC: 

1990 restore ITEMICDATA 

2000 tc=0:th=8:te=16:fci=l:gosub CLEAR 

ITEM 

2010 tc=8:th=dth:te=8:plc=6:gosub PCOL 

OR 

2020 for x=0 to 2 

2030 plsb=x:plse=x:gosub PSTYLE:gosub 

DOTEXT 

2040 cy=cy*7:for y=l to 3 

2050 n=2 : coord CO) =10 : coord CD =cy : coord 

C2) =300: coord C3)=cy 

2060 gosub PLlNE:cy=cy+lO 

2070 next y:cy=cy+7 

2080 next x:plsb=0:plse=O:gosub PSTYLE 

2090 poke gintin,257:geMsysC78) :return 
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WORD FOR WORD 

A crossword game for the ATARI 







You can play WORD FOR WORD on a game 
board that looks like this, or you can create your 
own! Drop-down menus make it easy to design 
the shape, size, and layout of the 
game board. Other features let 
you assign letter values, select a 
skill level, and challenge words. 

When the game board is the 
way you want it, invite up to three 
friends to play. And you can 
include Alphie (your computer) in the game. He 
has a 20,000 word vocabulary that is sure to chal- 
lenge and improve your skills. The choice is 
yours and the options are almost endless! 
To Order 

Contact your Atari ST dealer, or 
send $39.95 plus $3-50 for 
shipping and handling. ($43.45) 
California residents add $2.40 
sales tax. ($45.65) 

MasterCard or Visa accepted 

Works with color (medium resolution) or monochrome monitor. 

WORD FOR WORD is a trademark ol Bay View Software 



Bay View Software 

177 Webster St., Suite A-295 

Monterey, Calif. 93940 

(408) 373-4011 
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REGENT WORD 
Regent Word is a fast, reliable, 
sophisticated, and easy to learn word 
processor for the Atari ST! /Multiple 
printer drivers, on-line help menus, and 
communications utilities are included. 



REGENT SPELL 

A 30,000 word Spelling Checker for the 
Atari ST! Shows misspelled words in 
context. Insert/Delete words in 
dictionary. 10 Suggested Spellings. 
Windowing and Mouse Controls. Type in 
your own spelling. 



REGENT SOFTWARE 

7131 Owensmouth, Suite 45A 
Canoga Park, CA 91303 
(818)883-0951 
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VDI Functions continued 



2110 ITEM2fl: 

2120 restore ITEM2ADATA 

2130 tc=2:th=8:te=4:fci=6:gosub CLEARI 

TEM 

2140 tc=7:th=dth:te=e:pMC=4:gosub PMCO 

LOR 

2150 read n:n2=n:for x=8 to Cn*2)-1 

2160 read coord(x) :next x 

2170 for x=l to 6:pMt=x:gosub PMTYPE 

2180 cy=cy4ie:gosub D0TEXT:cy=cy+6 

2190 coord tl) =cy : coord C3> =cy : coord C5} = 

cy:coord(7)=cy 

2200 n=n2:gosub PHARKER:cy=cy+4:next x 

2210 PMt=l:gosub PMTYPE 

2220 poke gintin,2S7:geMsysC78) zreturn 

2240 ITEM2B: 

2250 restore ITEM2BDATA 

2260 tc=6:th=8:te=4:fci=4:gosub CLEARI 

TEM 

2270 tc=10:th=dth:te=0:pMC=5:gosub PMC 

OLOR 

2280 read n:for x=0 to n-1 

2290 read coordicx) :next x:cy=40 

2308 for x=l to 5:cy=cy+8:gosub DOTEXT 

:cy=cy*6 

2318 for y=o to 5:pMt=y+l:gosub pmtype 

2320 n=l: coord CO) =coordlCy} : coord (l)=c 

y 

2330 PMh=x«10:gosub PMHEIGHT:gosub PMA 

RKER 

2340 next y:cy=cy+4*Cx«3) :next x 

2350 pMh=l:gosub PMHEIGHT:pHt=l:gosub 

PMTYPE 

2360 poke gintin,257:geMsysf78) ireturn 

2380 ITEM3A: 

2390 restore ITEM3ADATfi 

2400 tc=2:th=8:te=4:fci=8:gosub CLEARI 

TEM 

2410 tc=l:te=0 

2420 for x=4 to 12 Step 2:cy=cy+5 

2430 th=dth:cx=ie:gosub DOTEXT 

2440 c bar (0) =86 : Char (1) =68 : c bar (2) =73 : 

char C3) =32 : c bar (4J =83 : cbar (5) =65 

2450 Char C6} =77: Char C7) =80: Char <8} =76: 

char C9} =69 : char f lOJ =82 

2460 th=x:gosub THEI6HT:cx=120:n=ll:go 

sub GTEXT 

2470 cy=cy+Cx»3} :next x:th=dtb:gosub T 

HEIGHT 

2480 poke gintin,257:gensysC78) :return 

2500 ITEM3B: 

2510 restore ITEM3BDATA 

2520 tc=4:th=8:te=4:fci=13:gosub CLEAR 

ITEM 

2530 rt=l:tc=7:th=dth:te=0:gosub DOTEX 

T 

2540 for x=l to 4:read tbl,cx,cy,n 

2550 for xl=0 to n-l:read cbar(xl3:nex 

t xl:gosub TBA5E 

2560 for y=l to 3:gosub GTEXT 

2570 if x=l then cy=cy+10 

2580 if x=2 then cx=cx+10 

2590 if x=3 then cy=cy-10 

2600 if x=4 then cx=cx-10 

2610 next y:next x:tbl=8:gosub TBA5E 

2620 poke gintin,257:gei*sys(78) :return 

2640 ITEM3C: 

2650 restore ITEM3CDATA 

2660 tc=6:th=8:te=4:fci=10:gosub CLEAR 

ITEM 

2670 rt=l:tc=4:th=8:te=0:gosub DOTEXT 

2680 for x=0 to 6:read te,cx 

2690 gosub DOTEXT :cy=cy+20 

2780 next x:te=0: gosub TEFFECT 

2710 poke gintin,257:geHsysC78J :return 

2730 ITEM4A: 

2740 fcl=6:fcil=l: gosub 5U6REFRE5H 
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2759 if ft=8 then ft=l: f isl=3 : fsil=12 

2760 fsil=fsil+l 

2778 if fSil>12 and fisl=3 then fisl=2 

: f Sil=l : 1 1=9 : bS="'PftTTERM" : cS="24" 

2780 if fsil>24 then fsil=l : f isl=3: tl= 

10 : b$="HflTCH" : cSi:"12" 

2790 goto 5UBREDRAH 

2810 ITEM4B: 

2820 fCi=6:fCil=l:g0SUb 5UBREFRE5H 

2830 if ft=0 then ft=l: f isl=2: fsil=l 

2840 fsil=fsil-l 

2850 if fsiKl and fisl=3 then fisl=2: 

fsil=24:tl=9:b$="PATTERH":c5="24" 

2860 if fsiKl and fisl=2 then fisl=3; 

fsil=12:tl=10:b$="HATCH":cS="12" 

2870 goto 5UBREDRAH 

2890 5UBREFRESH: 

2900 cx=fx:cy=fy:cxl=152:cyl=176 

2910 rt=3:wM=l:fis=l:gosub DOSHAPE 

2920 CX=153:cxl=304 

2930 rt=3:fci=fcil:gosub D05HAPE 

2940 return 

2960 5UBREDRAH: 

2970 cx=fx:cxl=152:rt=3:wM=2: fsi=fsil; 

fis=fisl:fci=2:gosub DOSHAPE 

2980 cx=153:cxl=304:rt=3:fsi=fsil:fis= 

fiSl:fCi=5:gosub DOSHAPE 

2990 wi<i=l:gosub MHODE:rt=l:tc=l:th=dth 

:te=e:gosub DOTEXT 

3000 gotoxy tl,3:?bS; fsi" of "cS 

3810 poke gintin,257!geHsys{783 :return 

3830 ITEH5A: 

3040 restore ITEM5ADATA 

3050 fis=l:for y=l to 2;read fci,n 

3068 for xl=0 to Cn»2J-l: read coord Cxi 

) :next xl 

3878 rt=4:gosub DOSHAPE: next y 

3888 f is=2:rad=48:sa=0:ea=900 

3090 for x=l to 4:read pic, fci, fsi,cx, 

cy,cxl,cyl 

3100 gosub PC0L0R:rt=6:id=2:gosub DOSH 

APE 

3110 cx=cxl:cy=cyl 

3120 rt=6:id=3: gosub DOSHAPE 

3130 sa=sa+900:ea=ea-i'900:next x 

3140 plc=l: gosub PCOLOR 

3150 n=2:for x=l to 4 : f or y=0 to 3 

3160 read coord Cy) : next y: gosub PLINE: 

next X 

3178 rt=l:tc=l:th=4:te=e:gosub DOTEXT 

3188 for x=l to 8:read cx,cy:gosub DOT 

EXT: next x 

3190 wn=2: gosub WM0DE:rt=l:tc=7:th=dth 

:te=8: gosub D8TEXT 

3288 gotoxy 18,l:?"ARC'S":gotoxy 18,3: 

'"ID 2" 

3218 rt=l:tc::3: gosub DOTEXT 

3228 gotoxy ll,13:?"PIE'S":gotoxy 11,1 

5:?"ID 3" 

3238 poke gintin,257:geMsysf78} :return 

3258 ITEM5B: 

3268 restore ITEM5BDATA 

3278 fCi=4:fcil=ll:gosub SUBREFRESH 

3288 WM=l:gosub HM0DE:cyl=178: f is=:2 

3298 for x=l to 6:read fci , fsi ,cx,cy,c 

xl 

3388 rt=2: gosub DOSHAPE: next x 

3318 rad=28:for x=l to 4: read fci, fsi, 

cx,cy 

3328 rt=l: gosub DOSHAPE: next y 

3338 rt=l:rad=48:fis=3:fsi=3:fci=l:cx= 

228:cy=189 

3348 gosub DOSHAPE :WH=2: gosub MHODE 

3358 rt=l:tc=5:th=8:te=16:gosub DOTEXT 

3360 gotoxy 6,1:?"B A R 5" 

3370 rt=l:tc=2:gosub DOTEXT 

3380 gotoxy 19,1:?"C I R C L E S" 

3398 poke gintin,257:geMsyst78) :return 



3418 ITEM5C: 

3428 restore ITEM5CDATA 

3438 cx=fx:cy=fy:cxl=384:cyl=99 

3448 rt=3:ifH=l:fis=l:fci=l:gosub DOSHA 

PE 

3458 cy=188:cyl=176 

3460 rt=3:fci=0: gosub DOSHAPE: id=6 

3470 WH=2: gosub WM0DE:rt=l:tc=8:th=dth 

:te=8: gosub DOTEXT 

3488 n=l:cyl=27:cy2=95:cy3=65:ry=68:sa 

1=1888 :eal=8:id=6 

3498 sa^sal : ea=eal : cx=15 : cy=cyl : radx=7 

:rady=ry 

3500 for x=2 to 15: read char CO) 

3518 if id=7 then f si=x : f c i=x : gosub FI 

LLINDEX: gosub FILLCOLOR 

3528 if id=6 then plC=x:goSUb PC8L0R 

3538 gosub ELLARCPIE 

3548 cxl=cx:cx=cx-3:cy=cy3:gosub GTEXT 

: c x=c xl 

3558 if sa=sal then sa=eal:ea=sal:cy=c 

y2 else sa=sal:ea=eal:cy=cyl 

3568 cx=cx+21:next x:if id=7 then goto 

3598 
3578 tc=l:gosub TCOLOR: fis=2:gosub FIL 
LSTVLE 

3588 S3l=1358 : eal=458 : ry=38 : cyl=138 : cy 
2=138:cy3=158:id=7:gotO 3498 
3590 cx=5:cy=27:tc=0:th=4:te=0:gosub D 
OTEXT 

3680 cy=l05:tc=l:gosub DOTEXT 
3610 poke gintin,257:geMsys(78J :return 
3630 ITEH5D: 
3640 restore ITEM5DDATA 
3650 tc=2:th=8:te=16:fci=l:gosub CLEAR 
ITEM 

3660 cx=152 : cy=105 : radx=158 : rady=65 
3678 for x-l to 18 

3688 rt=5:fis=l:fci=l:gosub DOSHAPE 
3698 rt=5:fis=2: fsi=x:fci=x:gosub DOSH 
APE 

3700 radx=radx-10:rady=rady-5:next x 
3718 poke gintin,257:geMsysC78) :return 
3730 PMARKER: 

3748 poke contrl ,7: 'OPCODE 
3750 poke contrl+2,n: "HuHber of warker 
s 

3760 poke contrl+6,0 

3770 for lp=0 to Cn»2)-l: 'Enter coordi 
nates 

3780 poke ptsin+Clp»2>,coordClpJ 
3790 next ip 
3800 vdisysCl) :return 
3820 PMTYPE: 

3830 poke contrl, 18: 'OPCODE 
3840 poke contrl+2,0 
3850 poke contrl+6,1 
3860 poke intin,pHt: 'Marker type 
3878 ydisys CD : return 
3898 PMHEIGHT: 
3988 poke contrl, 19: 'OPCODE 
3910 poke contrl+2,1 
3928 poke contrl+6,8 
3938 poke PtSin,8 

3948 poke ptsin+2,pwh: 'Marker height 
3958 vdisysCl) :return 
3978 PMCOLOR: 

3980 poke contrl, 20: 'OPCODE 
3990 poke contrl+2,0 
4800 poke contrl-i-Ofl 
4010 poke intin,pHC : 'Color index 
4820 udisysci) :return 
4040 PLINE: 

4050 poke contrl, 6: 'OPCODE 
4060 poke contrl+2,n: 'Nunber of X,Y pa 
irs in line 
4878 poke contrl+6,8 
4888 for ip^e to Cn»2}-1: 'Enter coordi 
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nates 

4858 poke ptsin+Clp«2),coord(lp) 

4188 next Ip 

4118 vdisysfl) :return 

4138 PTYPE: 

4148 poke contn, 15: 'OPCODE 

4158 poke contrl+2,8 

4168 poke contrl+6,1 

4178 poke intin, pit: 'Polyline type 

4188 vdisysfl) :return 

4288 PMIDTH: 

4218 poke contn, 16: 'OPCODE 

4228 poke contrl+2,1 

4238 poke contrl+6,8 

4248 poke ptsin,plw: 'Polyline width 

4258 poke ptsin+2,8 

4268 vdisysCl) :return 

4288 P5TYLE: 

4298 poke contn, 188: 'OPCODE 

4308 poke contrl'i-2,8 

4318 poke contrl+6,2 

4328 poke intin, plsb: 'End style for be 

gining of line 

4338 poke intin-1'2, pise: 'End style for 

end of line 

4348 vdisysfl) :return 

4368 PCOLOR: 

4378 poke contn, 17: 'OPCODE 

4388 poke contrl'i-2,8 

4398 poke contrl+etl 

4488 poke intin, pic : 'Polyline color in 

dex 

4418 VdisysCl) :return 

4438 GTEMT: 

4448 poke contn, 8: 'OPCODE 

4458 poke contn*2,i 

4468 poke contrl+6,n: 'NuMber of charac 

ters to display 

4478 for lp=8 to n-l: 'Enter text to di 

splay (in ASCII) 

4488 poke intint(lp«2),char(lp) 

4490 next ip 

4580 poke ptsin,cx:'X coordinate 

4518 poke ptsin+2,cy: 'Y coordinate 

4528 vdisys(l) :return 

4548 TCOLOR: 

4558 poke contn, 22: 'OPCODE 

4568 poke contrl+2,8 

4578 poke contrl+6,1 

4588 poke intin, tc : 'Text color index 

4598 VdisysCl) :return 

4618 TEFFECT: 

4628 poke contn, 186: 'OPCODE 

4630 poke contrl'i-2,8 

4648 poke contrl'+6,l 

4658 poke intin, te: 'Text effect word 

4660 VdisysCl) :return 

4688 THEIGHT: 

4698 poke contn, 12: 'OPCODE 

4788 poke contrl-i-2,1 

4718 poke contrl+6,8 

4720 poke ptsin,8 

4738 poke ptsin*2,th: 'Character height 

4748 VdisysCl) 

4758 charw=peekCptsout) : 'Character wid 

th 

4768 charh=peekCptsout+2) : 'Character h 

eight 

4778 eel lw=peek cptsout+4) : 'Cell width 

4788 eel lh=peek Cptsout*6) : 'Cell height 

4798 return 

4618 THEIGHTP: 

4828 poke contn, 187 : '8PC0DE 

4830 poke contrl+2,8 

4848 poke contrl+6,1 

4858 poke intin, th: 'Cell height 

4868 VdisysCl) 



4878 charw=peek(ptsout) : 'Character wid 

4888 charh=peekCptsout+2) : 'Character h 

eight 

4898 cellw=peekCptsout+4) : 'Cell width 

4988 cellh=peekCptsout+6) : 'Cell height 

4918 return 

4938 TBASE: 

4948 poke contn, 13: 'OPCODE 

4958 poke contrl+2,8 

4968 poke contrl+6,1 

4978 poke intin,tbl: 'Baseline angle 

4988 VdisysCl) :return 

5808 MMODE: 

5818 poke contn, 32: 'OPCODE 

5828 poke contrl+2,8 

5838 poke contn+6,1 

5848 poke intin, wm: 'Hriting Hode code 

5858 VdisysCl) :return 

5878 ARCPIE: 

5888 poke contn, 11: 'OPCODE 

5898 poke COntn+2,4 

5188 poke contrl+6,2 

5118 poke contrl+18, id: 'Primitive ID 

2=ARC 3=PIE 
5128 poke intin, sa: 'Start angle in ten 
ths of degrees C8-36e8) 
5138 poke intin+2,ea: 'End angle in ten 
ths of degrees C8-3688) 
5148 poke ptsin,cx:'X coordinate of ce 
nter point 

5158 poke ptsin+2,cy: 'Y coordinate of 
center point ^ . . 

5168 for lp=4 to 18 step 2:poke ptsm* 
lp,8:next Ip 
5178 poke ptsin+12,rad: 'Radius 

5188 poke ptSin+14,8 

5198 VdisysCl) :return 

5218 BAR: 

5228 poke contn, 11: 'OPCODE 

5238 poke contrl+2,2 

5248 poke contrI+6,8 

5258 poke contrl+18,l:'Pri»iitive ID 

1=BAR , ^ 

5268 poke ptsin,cx:*X coordinate of ba 

r 

5278 poke ptsin+2,cy: 'Y coordinate of 

bar 

5288 poke ptsin+4,cxl: 'X coordinate of 

bar diagonally opposite 
5298 poke ptsin+6,cyl: 'Y coordinate of 

bar diagonally opposite 
5308 VdisysCl) : return 
5328 CIRCL : 

5338 poke contrl, 11: 'OPCODE 
5348 poke contrl+2,3 
5358 poke contrl+6,8 
5368 poke contrl+ie,4:'PriMitive ID 
4=CIRCLE 

5378 poke ptsin,cx5'X coordinate of ce 
nter point 

5388 poke ptsin+2,cy: 'Y coordinate of 
center point 
5398 poke ptSin+4,8 
5488 poke ptSin+6,8 
5418 poke ptsin+8,rad: 'Radius 
5428 poke ptsin+18,8 
5438 VdisysCl) :return 
5458 ELLARCPIE: 
5468 poke contn, 11: 'OPCODE 
5478 poke contrl+2,2 
5488 poke contrl+6,2 
5498 poke contn+18,id: 'PriMitiwe ID 

erEIl.ARC 7=E11.PIE 
5588 poke intin, sa: 'Start angle in ten 
ths of degrees 

5518 poke intin+2,ea: 'End angle in ten 
ths ef degrees C8-3688) 
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5520 poke ptsin,cx:'X coordinate of ce 

nter point 

5530 poke ptsin*2,cy : ■ V coordinate of 

center point 

5540 poke ptsin-i'4,radx: 'Radius of M ax 

is 

5550 poke ptsin+6,rady: 'Radius of Y ax 

is 

5560 vdisysCl) :return 

5580 ELLIP5: 

5590 poke contn, 11: 'OPCODE 

5600 poke contrl+2,2 

5610 poke contrl+OfO 

5620 poke contrli-ie,5: 'PriMitive ID 

5=EIlipse 

5630 poke ptsin,cx:'X coordinate of ce 

nter point 

5640 poke ptsin'»2,C!;: 'Y coordinate of 

center point 

5650 poke ptsin-i'4,radx: 'Radius of H ax 

is 

5660 poke ptsin+O^rady: 'Radius of Y ax 

is 

5670 vdisys(l) :return 

5690 RRECT: 

5700 poke contn, 11: 'OPCODE 

5710 poke contrl+2,2 

5720 poke contrl-i-6,0 

5730 poke contrl+ie, id: 'PriHitive ID 

8=Rounded rect 9=Filled 
5740 poke ptsin,cx:'X coordinate of re 
ctangie 

5750 poke ptsin+2,cy: 'Y coordinate of 
rectangle 

5760 poke ptsin44,cxl: 'X coordinate di 
agonal ly opposite 

5770 poke ptsin-iH6,cyl: 'Y coordinate di 
agonal ly opposite 
5780 vdisysCl) :return 
5800 FILLA: 

5810 poke contrl, 9: 'OPCODE 

5820 poke contrl+2,n: 'Nunber of lines 

in ploygon 

5830 poke contrl+6,0 

5840 for lp=0 to Cn«2>-1:' Enter coordi 

nates 

5850 poke Ptsin«Clp«2),coordClp) 

5860 next Ip 

5870 vdisysfl) :return 

5890 CONTOUR: 

5900 poke contn, 103: 'OPCODE 

5910 poke contrl*2,l 

5920 poke contrlt6,l 

5930 poke intin,cc : 'Color index defini 

ng contour 

5940 poke ptsin,cx:'X coordinate of sa 

trting point 

5950 poke ptsin+2,cy: 'Y coordinate of 

satrting point 

5960 VdisysCl) :return 

5980 RECTFILL: 

5990 poke contn, 114: 'OPCODE 

6000 poke contrl+2,2 

6010 poke contn+6,0 

6820 poke ptsin,cx:'X coordinate of re 

ctangle 

6830 poke ptsin-i'2,cy: 'Y coordinate of 

rectangle 

6040 poke ptsin'«'4,cxl: 'X coordinate di 

agonally opposite 

6050 poke ptsin+6,cyl: 'Y coordinate di 

agonally opposite 

6060 VdisysCl) :return 

6880 FILL5TYLE: 

6890 poke contn, 23: 'OPCODE 

6100 poke contrl'i-2,0 

6110 poke contn-i-Ofl 



6120 poke intin, f is: 'Fill interior sty 

le code 

6130 VdisysCl) :return 

6150 FILLINDEX: 

6160 poke contn, 24: 'OPCODE 

6176 poke contrl+2,0 

6180 poke contrI-i-6,1 

6190 poke intin, fsi : 'Fill style index 

code 

6200 VdisysCl) :return 

6220 FILLCOLOR: 

6230 poke contn, 25: 'OPCODE 

6240 poke contrl+2,0 

6250 poke contrl+e,l 

6260 poke intin, fci : 'Fill color index 

6270 VdisysCl) : return 

6290 PERHU: 

6380 poke contn, 184: 'OPCODE 

6310 poke contrl+2,0 

6320 poke contrl+6,1 

6330 poke intin, pv: 'PeriMeter flag 0= 

Invisible Invisible 

6340 VdisysCl) :return 

6360 TIHER: 

6370 poke gintin,5008: '5 Second wait 

6388 poke gintin+2,0 

6390 geMsysC24) : 'OPCODE 

6400 return 

6410 ' PROGRAM DATA 

6440 INTRODATA: 

6450 data 5,86,32,68,32,73 

6460 data 13,83,32,65,32,77,32,88,32,7 

6,32,69,32,82 

6470 data 4,70,82,79,77 

6480 data 11,65,32,78,32,65,32,76,32,7 

9,32,71 

6490 data 9,67,79,77,80,85,84,73,78,71 

6510 MENUODATA: 

6520 data 34,76,73,78,69,32,77,65,82,7 

5,69,82,32,84,69,88,84,32 

6530 data 70,73,76,76,32,83,72,65,80,6 

9,83,32,32,81,85,73,84 

6540 data 12,0,32,42,88,98,128,138,168 

,178,224,250,280 

6550 data 0,8,5,0,0,0 

6560 HENUIDATA: 

6570 data 31,84,89,80,69,32,87,73,68,8 

4,72,32,69,78,68,83 

6580 data 84,89,76,69,32,32,32,77,65,7 

3,78,32,77,69,78,85 

6590 data 8,0,32,42,80,90,152,186,256 

6600 data 5,8,2,3,9,8 

6610 MENU2DATA: 

6620 data 23,84,89,80,69,32,72,69,73,7 

1,72,84,32,32,32 

6630 data 77,65,73,78,32,77,69,78,85 

6640 data 6,0,32,42,88,122,192 

6650 data 2,8,6,4,10,4 

6660 MENU3DATA: 

6670 data 33,83,73,90,69,32,66,65,83,6 

9,76,73,78,69,32 

6680 data 69,70,70,69,67,84,83,32,32,3 

2.77,65,73,78,32,77,69,78,85 

6690 data 8,0,32,42,104,114,168,202,27 

2 

6700 data 12,8,3,7,12,2 

6710 MENU4DATA: 

6720 data 25,78,69,88,84,32,80,82,69,8 

6,73,79,85,83,32,32,32 

6730 data 77,65,73,78,32,77,69,78,85 

6740 data 6,0,32,43,104,130,200 

6750 data 2,8,11,1,21,4 

6760 MENU5DATA: 

6770 data 50,65,82,67,47,80,73,69,32,6 

6,65,82,47,67,73,82,67,76,69,32 

6788 data 69,76,76,46,65,82,67,47,80,7 

3,69,32,69,76,76,73,80,83,69,32 
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6790 data 32,32,77,65,73,78,32,77,69,7 

8,85 

6800 data 10,0,43,50,109,116,181,188,2 

29,248,301 

6810 data 4,8,10,4,20,5 

6830 ITEMIADATA: 

6840 data 10,76,73,78,69,32,84,89,80,6 

9,83 

6850 data 6,84,89,80,69,32,49,6,84,89, 

80,69,32,50,6,84,89,80,69,32,51 

6860 data 6,84,89,80,69,32,52,6,84,89, 

80,69,32,53,6,84,89,80,69,32,54 

6870 ITEMIBDOTA: 

6880 data 11,76,73,78,69,32,87,73,68,8 

4,72,83 

6890 data 7,87,73,68,84,72,32,49,7,87, 

73,68,84,72,32,51 

6900 data 7,87,73,68,84,72,32,53,7,87, 

73,68,84,72,32,53 

6910 ITEMICDATA: 

6920 data 9,69,78,68,83,84,89,76,69,83 

6930 data 10,69,78,68,83,84,89,76,69,3 

2,48,10,69,78,68,83,84,89,76,69,32,49 

6940 data 10,69,78,68,83,84,89,76,69,3 

2,50 

6950 ITEM2ADATA: 

6960 data 12,77,65,82,75,69,82,32,84,8 

9,80,69,83 

6970 data 4,75,55,125,55,200,55,275,55 

6980 data 6,84,89,80,69,32,49,6,84,89, 

80,69,32,50,6,84,89,80,69,32,51 

6990 data 6,84,89,80,69,32,52,6,84,89, 

80 , 69 , 32 , 53 , 6 , 84 , 89 , 80 , 69 , 32 , 54 

7000 ZTEH2BDATA: 

7010 data 13,77,65,82,75,69,82,32,72,6 

9,73,71,72,84 

7020 data 6,75,115,155,195,235,275 

7030 data 9,72,69,73,71,72,84,32,49,48 

,9,72,69,73,71,72,84,32,50,48 

7040 data 9,72,69,73,71,72,84,32,51,48 

,9,72,69,73,71,72,84,32,52,48 

7050 data 9,72,69,73,71,72,84,32,53,48 

7060 ITEN3ADATA: 

7070 data 9,84,69,88,84,32,83,73,90,69 

7080 data 11,84,69,88,84,32,83,73,90,6 

9,32,52 

7090 data 11,84,69,88,84,32,83,73,90,6 

9,32,54 

7100 data 11,84,69,88,84,32,83,73,90,6 

9,32,56 

7110 data 12,84,69,88,84,32,83,73,98,6 

9,32,49,48 

7120 data 12,84,69,88,84,32,83,73,90,6 

9,32,49,50 

7130 ITEN3BDATA: 

7140 data 8,66,65,83,69,76,73,78,69 

7150 data 0,110,55,10,66,65,83,69,76,7 

3,78,69,32,48 

7160 data 900,50,150,12,66,65,83,69,76 

,73,78,69,32,57,48,48 

7170 data 1800,200,150,13,66,65,83,69, 

76,73,78,69,32,49,56,48,48 

7180 data 2700,250,55,13,66,65,83,69,7 

6,73,78,69,32,50,55,48,48 

7190 ITEM3CDfiTfl: 

7200 data 8,32,69,70,70,69,67,84,83 

7210 data 0,80,10,48,32,32,32,78,79,82 

,77,65,76 

7220 data 1,80,11,49,32,84,72,73,67,75 

,69,78,69,68 

7230 data 2,80,11,50,32,73,78,84,69,78 

,83,73,84,89 

7240 data 4,75,10,52,32,32,32,83,75,69 

,87,69,68 

7250 data 8,77,12,56,32,85,78,68,69,82 

,76,73,78,69,68 

7260 data 16,75,11,49,54,32,79,85,84,7 



6,73,78,69,68 

7270 data 32,75,11,51,50,32,83,72,65,6 

8,79,87,69,68 

7280 ITEM5ADATA: 

7290 data 3,3,1,22,304,22,1,176 

7300 data 7,3,304,22,304,176,1,176 

7310 data 7,0,5,90,70,240,115,2,5,16,8 

0,70,230,115 

7320 data 1,1,19,80,80,230,125,4,3,7,9 

0,80,248,125 

7330 data 85,30,85,120,35,75,135,75,23 

5,75,235,167,185,120,285,120 

7340 data 139,77,1,48,76,28,3,57,48,48 

,5,77,4,49,56,48,48 

7350 data 72,127,4,50,55,48,48 

7360 data 289,122,1,48,226,73,3,57,48, 

48,155,122,4,49,56,48,48 

7370 data 222,175,4,50,55,48,48 

7380 ITEH56DATA: 

7390 data 1,23,17,50,47,0,8,52,70,77,5 

,24,82,90,102 

7400 data 2,19,107,110,122,6,16,127,13 

0,137,3,10,142,150,147 

7410 data 2,10,182,62,4,21,274,62,7,12 

,182,156,10,24,274,156 

7420 ITEM5CDATA: 

7430 data 69,76,76,73,80,84,73,67,65,7 

6,32,65,82,67 

7440 data 69,76,76,73,80,84,73,67,65,7 

6,32,80,73,69 

7450 data 4,73,68,32,54,4,73,68,32,55 

7460 ITEH5DDATA: 

7470 data 9,32,32,69,76,76,73,80,83,69 
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100 data 388, 683, 932, 753, 140, 62 

0, 70, 47, 401, 399, 4433 

200 data 639, 501, 2, 245, 356, 514, 

241, 775, 73, 32, 3378 

310 data 872, 504, 231, 765, 63, 781 
, 322, 923, 144, 40, 4645 

430 data 616, 312, 25, 999, 27, 741, 

904, 961, 250, 234, 5069 

540 data 608, 858, 532, 619, 882, 56 
5, 249, 719, 454, 953, 6439 

648 data 66, 165, 555, 612, 882, 203 
, 123, 894, 398, 370, 4260 

750 data 195, 93, 10, 582, 896, 462, 

212, 350, 409, 193, 3402 

860 data 790, 585, 87, 655, 60, 155, 

352, 537, 944, 424, 4589 

970 data 639, 421, 63, 740, 832, 816 
, 519, 75, 773, 78, 4956 

1080 data 112, 380, 911, 689, 47, 55 

1, 3, 942, 231, 884, 4750 

1190 data 300, 79, 229, 609, 294, 97 
, 958, 393, 475, 849, 4275 

1300 data 409, 163, 743, 703, 261, 7 
78, 791, 31, 290, 277, 4446 

1400 data 99, 869, 273, 313, 706, 98 
3, 802, 871, 147, 827, 5890 

1510 data 831, 835, 839, 843, 368, 8 
56, 837, 857, 978, 870, 8114 

1620 data 992, 839, 890, 114, 416, 7 
10, 868, 954, 381, 79, 6243 

1748 data 439, 275, 960, 44, 36, 947 
, 993, 538, 849, 993, 6074 

1858 data 390, 87, 444, 281, 879, 99 

2, 959, 946, 91, 548, 5617 

1958 data 82, 999, 399, 95, 410, 261 
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, 8, 229, 939, 924, 4346 

2068 data 69, 468, 149, 977, 366, 63 
, 327, 497, lie, 232, 3258 

2178 data 838, 454, 466, 219, 43, 97 
6, 375, 71, 333, 396, 4163 

2288 data 38, 28, 113, 997, 841, 452 
, 138, 916, 983, 381, 4863 

2398 data 77, 337, 658, 7, 984, 43, 
933, 388, 916, 988, 5323 

2588 data 382, 77, 443, 235, 289, 76 
8, 844, 856, 856, 878, 5628 

2688 data 863, 881, 988, 392, 86, 44 

3, 819, 367, 485, 877, 6121 

2718 data 998, 398, 398, 648, 864, 6 
88, 13, 546, 394, 463, 5284 

2838 data 442, 867, 535, 184, 541, 5 
5, 973, 421, 179, 248, 4365 

2948 data 478, 923, 666, 178, 589, 9 
12, 971, 373, 67, 163, 5312 

3868 data 771, 896, 448, 936, 526, 2 

76, 589, 716, 981, 925, 7864 

3168 data 937, 789, 185, 588, 388, 5 
48, 688, 979, 384, 77, 5459 

3278 data 628, 463, 921, 895, 197, 8 
97, 961, 749, 989, 67, 6767 

3378 data 554, 772, 988, 389, 81, 88 

4, 152, 168, 391, 573, 4864 

3488 data 582, 811, 781, 389. 722, 6 

87, 191, 249, 382, 16, 4498 

3588 data 728, 538, 762, 989, 488, 9 

I, 437, 487, 79, 622, 5837 

3698 data 489, 592, 992, 576, 311, 9 

77, 446, 274, 889, 452, 5998 

3888 data 729, 512, 433, 443, 451, 3 
82, 736, 811, 435, 446, 5298 

3928 data 448, 131, 686, 737, 621, 4 
26, 451, 424, 332, 789, 4965 

4848 data 333, 292, 311, 428, 256, 8 

71, 427, 711, 481, 489, 4439 

4158 data 425, 433, 641, 718, 477, 4 

II, 428, 438, 864, 258, 5885 

4268 data 719, 586, 496, 426, 437, 8 
63, 333, 728, 492, 422, 5414 

4388 data 434, 442, 689, 728, 379, 3 
85, 437, 965, 948, 656, 5967 

4498 data 445, 228, 467, 724, 586, 4 
17, 438, 446, 686, 731, 5674 

4618 data 548, 495, 438, 446, 659, 7 
31, 586, 423, 441, 443, 5284 

4726 data 126, 28, 725, 272, 618, 74 
8, 952, 473, 797, 584, 5227 

4838 data 444, 452, 977, 736, 277, 6 
15, 753, 956, 471, 324, 5993 

4946 data 429, 449, 4579 689, 742, 3 
48, 481, 421, 429, 842, 5267 

5856 data 714, 418, 464, 448, 432, 4 
4, 534, 374, 369, 689, 4418 

5168 data 295, 825, 481, 721, 997, 4 
84, 434, 433, 234, 68, 4884 

5278 data 319, 392, 463, 718, 353, 4 

88, 441, 437, 696, 378, 4539 

5388 data 698, 273, 273, 752, 486, 7 
24, 877, 414, 444, 449, 5384 

5496 data 128, 744, 384, 379, 699, 2 
69, 281, 736, 582, 428, 4536 

5686 data 443, 442, 813, 383, 783, 2 
73, 285, 734, 379, 417, 4872 

5718 data 447, 446, 723, 982, 189, 3 

72, 383, 738, 338, 317, 4935 

5826 data 113, 458, 278, 893, 456, 7 
46, 677, 495, 456, 455, 5667 
5936 data 251, 883, 849, 742, 791, 5 

89, 427, 426, 961, 168, 6667 

6648 data 351, 362, 717, 944, 412, 4 
24, 432, 886, 717, 928, 6173 

6168 data 414, 431, 439, 385, 717, 9 
29, 416, 431, 439, 739, 5348 



6278 data 

85, 724, 375 

6398 data 

75, 494, 576 
6526 data 

76, 862, 739 
6628 data 

5, 766, 935, 

6728 data 
2, 84, 343, 

6838 data 
, 632, 614, 

6938 data 
4, 35, 948, 

7636 data 
, 619, 615, 

7136 data 
88, 965, 723 

7238 data 
65, 118, 441 

7338 data 
, 174, 963, 

7436 data 
35 



724, 394, 482, 431, 439, 4 

, 369, 439, 4862 

892, 459, 957, 919, 784, 1 

, 81, 828, 6165 

464, 156, 513, 112, 835, 8 

, 165, 835, 5545 

515, 752, 56, 264, 842, 55 

461, 842, 5928 
154, 755, 125, 394, 849, 6 
853, 462, 4621 
968, 351, 38, 29, 975, 656 
975, 132, 5378 
698, 347, 975, 967, 961, 4 
226, 489, 5682 
787, 778, 15, 953, 59, 616 
917, 913, 6264 
956, 773, 184, 169, 354, 4 
, 913, 273, 5716 
252, 935, 645, 227, 214, 9 
, 51, 23, 3863 
664, 798, 76, 356, 151, 67 
45, 971, 4265 
261, 263, 784, 978, 49, 23 



WHAT IS 

ST-CHECK? 



Most program listings in ST-Log are 
followed by a table of numbers appear- 
ing as DATA statements, called "ST 
CHECKSUM DATA." These numbers 
are to be used in conjunction witfi ST- 
Check (which appeared in ANALOG 
Computing/ST-Log issue 41. 

ST-Check (written by Clayton Wal- 
num) is designed to find and correct 
typing errors when readers are enter- 
ing programs from the magazine. For 
those readers who would like copies of 
the article, you may send for back is- 
sue 41 ($4.00). 

ANALOG Computing/ST-Log 

P.O. Box 625, Holmes, PA 19045 
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STylish Software 



No question about it, the new Atari 520 ST" is a 
remarkable computer. And nothing complements a great 
computer better than great software and great peripherals. 



HabaWriter^". A full-function word processor, featuring 
windows for simultaneous multiple document editing as 
well as pull-down menus for fast access to program 
commands. Advantageous use of the mouse means never 
having to memorize cryptic commands again. HabaWriter 
is the word processor your 520 ST has been waiting for. If 
you do any writing at all, take a look at HabaWriter. 
Suggested Retail: $74.95 



Habadex PhoneBook^" is the elegant way to store phone 
numbers. And it not only stores numbers, but it can dial 
them as well. It works and looks just like the flip-up phone 
book that you're used to. Long distance services like MCI 
and Sprint can be automatically dialed so you don't have 
to. The PhoneBook can sort on any field, is versatile 
enough to handle other types of information and can even 
print mailing labels. (Automatic dialing requires either a 
HabaModem™ or any Hayes™ compatible modem.) 
Suggested Retail: $49.95 



The new HabaDisk'" 10 Megabyte hard disk for the 520 
ST is a Winchester plug- in hard disk that is capable of 
storing the equivalent of more than 12 dual-sided 800K 
diskettes and retrieves information in seconds (3 msec, 
track-to-track access time). It is self-powered and 
completely Atari ST compatible (including Atari Desktop 
and GEM'" DOS). Suggested Retail: $699.95 



Also available for the 520 ST: 

Haba Checkminder™— Suggested Retail: $74.95 

Haba Mail Room™— Suggested Retail: $74.95 

HabaMerge™— Suggested Retail: $39.95 

Solutions: Wills™— Suggested Retail: $49.95 

Solutions: Business Letters™— Suggested Retail: $49.95 




520 ST 15 a iradenurk of Aorl Cop. HabaWriter, Habadex PhoneBook, HabaModem, HabaDisk, Haba Checkminder, Haba Mail Room , HaboMeije, Solutions: Wills, and Soliitions: Business leaeis ate tiadematks of Haba 
Systems, Inc. Hayes is a tnidetnark of Hayes Miaocomputer Coip. GEM is a tradetnark of Digital Research, Inc. 
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^ ' 6711 Val jean Avenue 



Valjean . 
Van Nuys, CA 91406 
(818) 989-5822 • (800) HOT-HABA (USA) • (800) FOR-HABA (CA) 



HOWIO GET THE MOST 
OUTOFYOURilTARI. 



The powerful new Atari ST is capable 
of extraordinary color graphics. Right 
now, there is only one full size, com- 
mercially available color printer that 
can screen dump in over 120 / 
colors off the Atari ST and r 

we've got it. The 
Shanner SPC 
700CI color printer 

Other features 
include: 

■ Fast and quiet 
operation 

■ Uses standard 
paper— inexpensive to operate 

■ Centronics interface-compatible 
with many other computers 



VIP 

PROFESSIONAL 
SPREADSHEET 

$9990 

Full-Blown Original Version 





■ Million characters per color ribbon cassette 

■ Made by Seikosha 

VIP Professional is our powerful new 

software for the Atari ST Its program is 

identical in features and commands 

to Lotus 1 -2-3 with Macros, 

256 X 8092 columns, Data 
Base capabilities with 
Sort and Query Fields. 

VIP Prolessional is a Irademark 

of VIP Technologies, Lotus 

1-2-3 IS a trademark of Lotus 

Development Corporation. 

Atari ST IS a trademark 

of Alan Corporation. 



SPC-700CI 
COLOR PRINTER 

$29995 



GUMBALL EXPRESS ORDER FORM 



Product Description Price 

VIP Professional $ 99.90 

for Atari ST 



Shanner SPC-700CI $299.95 

D Check here and add $14.95 to $399.95 

All products will be shipped prepaid UPS ground 



P&L 
$3.50 

$7.50 



For FAST delivery use this order form or call TOLL FREE 800/423-9442 

D INTERBANK (MasterCard only) 



TOTAL 
$103.40 

$307.45 



D Check enclosed. (NOTE— order will be shipped when check clears). 

Make check payable to: 
Gumball Express 

707 S.W. Washington Street Suite 200 
Portland, Oregon 97205 



D VISA D MASTERCARD 

Nanne on card 

Account tt 

Expiration Date 

Signature 

SHIP TO: 

Name 

Address 

City 



State 



Zip 



C.O.D.'s and purchase orders will not be accepted by Gumball Express. 
Outside the USA add $10. and make payment by bank draft, payable in 
U.S. dollars drawn on a U.S. bank. 
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VIP Professional/Lite 




VIP TECHNOLOGIES 

132 Aero Camino 

Santa Barbara, CA 93117 

(805) 685-3948 

520ST VIP Professional $180 

VIP Professional Lite $100 

by Arthiu- Leyenberger 

When I first got the VIP Professional, 
I was eager to try it. I'd been a long-time 
user of Lotus 1-2-3, and I wanted to com- 
pare them head to head (or, more ap- 
propriately, cell to cell). 

Lotus 1-2-3 was and is a breakthrough 
in the MS-DOS world. I was hoping the 
Professional would be the same for 
Atari. Here's where the tale begins. 

In the carton, I found a thick reference 
manual. On skimming, it seemed easy 
to read. I also found the 3V2-inch micro 
floppy disk. Eager to try the program on 
my 520ST, I booted up with TOS, then 
inserted the Professional disk in the 
drive. When I tried to get a disk direc- 
tory, I got an error message. 

Taking the disk out, I discovered what 
seemed to be a piece of adhesive tape 
on the disk's business end. Looking 
closer, I read a warning to the effect that, 
if I broke this seal, I was bound to the 
rules and regulations set forth in VIP's 
software license. Okay, I'd seen this kind 
of warning before. Typically, though, the 
disks would come wrapped in a sealed 
baggie; opening it would bind me to the 
license agreement. 

I attempted to remove the sticker. It 
wouldn't come off — not easily. I soon 
realized the only way to remove it (and 
to use the disk) was to scrape it off. 



I began doing so very carefully, try- 
ing to avoid getting crumbs inside the 
disk shell. I kept scraping, rubbing and, 
generally, getting nervous. I knew that 
if anything did get into the disk un- 
detected, it might become history once 
accessed by the drive. Finally, I got the 
sticker off and inserted the disk. 

VIP Professional booted fine. I didn't 
have time then for a full-length session. 
I just wanted to see how similar the 
screen and user interface were to the 
Lotus — and it looked very much the 
same. It is a Lotus clone, right? 

My next surprise came on exiting the 
program. The message said, insert TOS 
disk and turn the computer off and on. 
I was slightly annoyed that I couldn't get 
back to the desktop. It was a nuisance, 
nothing more. 

Next, I thought I'd better back the pro- 
gram up, so I wouldn't have to worry 
about those crumbs. Using MichTron's 
M-Copy program (the best currently 
available), I made a backup. When I tried 
to run the copy, I found it wouldn't work. 
It still needed the original disk in drive 
1, using the key disk system. Surprise: 
VIP is copy protected. 

I'm against copy protection for appli- 
cation and utility programs. If manufac- 
turers want to protect games, that's okay 
with me. But a program used for seri- 
ous work — especially at this price — 
shouldn't be copy protected. And, with 



those crumbs still causing nightmares, 
I get queasy every time I put the origi- 
nal in the drive. 

So ends my preface. Right off the bat, 
I felt abused by VIP. The disk was stuck 
shut; I had to unstick it, causing possi- 
ble disk damage — and I couldn't back 
it up completely. At least VIP could have 
included two disks. 

It's been a month since that first ex- 
perience with VIP Professional. I no 
longer feel angry. But I have seen sever- 
al revisions of the program, each correct- 
ing previous bugs. I finally have a copy 
of Professional that's bug free, as far as 
I can tell. Now it's time for an objective 
review. 

Professional by VIP Technologies is a 
spreadsheet for the ST, based upon the 
well-known, widely-used Lotus 1-2-3. As 
an integrated spreadsheet, Profession- 
al provides a sophisticated spreadsheet, 
database and presentation graphics ca- 
pabilities, rolled into one program. 

It really is a Lotus clone. As such, it 
will let you use the same keystrokes, api- 
plications, data files and templates as 
the original does. Worksheet files creat- 
ed on an IBM PC with Lotus 1-2-3 can 
be transferred to the ST, then accessed 
by the VIP Professional. No muss, no 
fuss. 

The version of the Professional used 
for tMs review was the so-called text ver- 
sion, which doesn't use the GEM system 
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at all. No mouse control, drop-down 
menus or pointing and clicking. But 
that's how Lotus 1-2-3 works; many peo- 
ple have used this setup effectively for 
years. 

Professional has two modes of opera- 
tion. NAT is the native mode, used most 
of the time. The other is WKS and is Lo- 
tus compatible. In the latter mode, files 
in Lotus format can be read into and 
saved from Professional. 

The native mode files load and save 
very quickly from the spreadsheet, 
whereas files in the WKS mode have to 
be translated when loaded. It's slightly 
slower. Pressing the ALT and UNDO 
keys on the ST toggle Professional into 
the two modes. 

On a 520ST with TOS on disk, only 
about 40K of memory is available for 
your Professional spreadsheets. With 
TOS on ROM, a spreadsheet can be over 
200K in size. If you have a 1-megabyte 
ST (either a 520 upgrade or a 1040), over 
Vz megabyte is available for your spread- 
sheet — more than the IBM PC allows 
Lotus 1-2-3. 

The documentation is first rate. The 
comprehensive spiral bound handbook 
has over 200 pages, divided into tutori- 
al and reference sections, plus a glossary, 
appendices and an index. 

Well written and easy to understand, 
the tutorial gets you started with the 
program and introduces you to the ba- 
sic concepts of VIP Professional. You're 
led through a sample budget worksheet 
with plenty of procedures and examples. 
The reference section gives details about 
the variety of available commands and 
functions. 

The VIP Professional screen is divid- 
ed into two areas, with a menu at the 
top line and the worksheet area filling 
the remainder The menu line at the top 



gives the titles for commands accessed 
by pressing the / key. 

For example, pressing /w displays an- 
other set of menu titles, like column 
width, delete, erase, global, window, etc. 
Select an item, and you're prompted for 
an entry. Pressing ESC returns you to 
the previous menu level. 

The worksheet area consists of a grid- 
like pattern of horizontal and vertical 
lines forming cells. Each cell may con- 
tain a piece of data. Columns are labeled 
A, B, C. . . , and rows are labeled by 
number, top to bottom. 

The arrow cursor keys are used to 
move the cell pointer around the work- 
sheet. Wherever the cell pointer rests in- 
dicates which cell will be affected by 
data entry or be a command's starting 
point. The current cell, as indicated by 
the pointer, is displayed at the top left 
of the screen. 

Like other spreadsheets, any position 
in the sheet can be defined as a label, 
value or formula. Further, any formula 
can relate to any other positions (or com- 
binations of positions] on the worksheet. 

When a position's value changes, all 
items dependent on that value change 
automatically, without any effort on the 
user's part. This allows you to perform 
whatever calculations and manipula- 
tions of figures you wish — with amaz- 
ing speed and accuracy. 

There are a couple of negative aspects 
to Professional. The program currently 
only supports TOS-recognized printers, 
so Epson and Epson compatibles are the 
only printers that will work with the 
program's graphic output. 

Unlike Lotus, Professional won't let 
you select output devices. Another pro- 
blem, albeit minor, is that you can't for- 
mat a disk from the program. Lotus 1-2-3 
shares this snag. 



II.Us 


:^S^:^ ROCKY MOUNTAIN 

1750 30th STREET • BOULDER, CO 80301 




Sill 
S'li 

Km 

Sill 
■■III 

m 

n'li 

■■Ill 
C'll' 
n'li 


illCf 

IliUg 

lilE 

IIEC 

El 


^ATARI SERVICE 

■--VJORY AUtMURlZELi \t UVORK 

EXTENDED SERVICE CONTRACTS 
SALES • CONSIGNMENTS • TRADE-INS 

TO FIND THE SERVICE CENTER NEAREST YOU 

NATIONWIDE — Dial: 1-800-66-ATARI 

IN COLORADO — Dial: 1-800-55-ATARI 

DENVER/BOULDER Metro — Dial: 44-ATARI 

VISIT ELECTRIC LAND: 303/447-ABBS 


c 

> 

C 

5 

5 



Being copy protected, the Profession- 
al uses a key disk system. As mentioned 
earlier, this means you can copy the 
disk's contents to another disk, but the 
original program must be in drive A 
when it's run. However, the program 
can't be used with a hard disk. With the 
key disk in drive A, Professional sim- 
ply will not run from drive C. 

Many have complained about the Pro- 
cessional's slow scrolling when redraw- 
ing the screen, as compared to Lotus 
1-2-3. Scrolling in any direction in Lo- 
tus is instantaneous. With the former, a 
slight delay occurs if the screen is re- 
drawn. VIP explains this by saying that 
the IBM PC only has 2K bytes of screen 
memory to update, whereas the ST has 
32K bytes. That accounts for the slow- 
ness. 

I understand the technicalities, but it's 
still no excuse. When a user is familiar 
with an excellent product (like SynCalc 
for the 8-bit Atari, which has no scroll- 
ing problems), they expect a more ex- 
pensive, more sophisticated product to 
function as well as that, if not better. 

Professional Lite is almost identical to 
Professional. Aside from a price $80 
lower, Lite doesn't have the ability to use 
macros, has no database functions and 
has a matrix of "only" 256 by 2048 cells 
(Professional allows a whopping 8192 
spreadsheet rows, while Lotus 1-2-3 will 
yield up to 2047 rows). 

If you don't need these features, Lite 
is the one to buy. The discounted price 
will fall somewhere in the $79-$80 
range, which makes it an excellent bar- 
gain. 

The GEM version of Professional 
should be even better. It's due in the sec- 
ond quarter of 1986. Current VIP policy 
is that all registered owners of Profes- 
sional will receive the GEM upgrade for 
free, instead of for the original $20 fee. 

The bottom line is that Professional 
and Professional Lite from VIP Technol- 
ogies are, as they claim, true imitations 
of Lotus 1-2-3. Both programs have bet- 
ter graph features than Lotus, and the 
68000 processor of the ST makes calcu- 
lations much faster than does the IBM 
PC's 8088. 

The documentation is good, and the 
price is right for Lite — and for the full 
Professional, if you need it. Now that 
the bugs have been worked out, I have 
no problem with recommending either 
one. H 
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by Clayton Walnum 



Okay, people. Pass your homework to the front of 
the class. What was that? Did I hear someone in the 
back say, "What homework?" 

For those who need their memories refreshed, last 
month I suggested that you try writing a C version 
of a simple number guessing game. You were to have 
the computer pick a number from 1 to 100, then al- 
low a player to enter guesses. With each guess, the 
player was to receive a clue as to whether he was too 
high or too low. 

My solution for this project is found in Listing 1. 
Does your program look something like this? May- 
be, maybe not. At this early point in your C career, 
I think the following qualities are most important. 

First of all, does it work? If you can give me an 
affirmative, you've earned 70 points. At this stage 
of the game, getting programs up and running is a 
good part of the battle. 

Now, did you use a structured approach? Does the 
function main() concern itself with the major steps 
of the game, allotting details to other functions? If 
so, give yourself another 20 points. When you become 
more familiar with C, this category will be more 
pointworthy. In fact, eventually, an unstructured pro- 
gram will be an automatic zero. Strict, huh? 

Finally, how readable is your code? Have you used 
indentation? Are there blank lines between each func- 



Part 5. 



tion? Did you use meaningful names for your func- 
tions and variables? Another 10 points to those who've 
added this touch of elegance. 

Game time again. 

Now that you've tallied up your homework score, 
type in Listing 1 and compile it. If you need help, 
see the sidebar accompanying Part 3 (issue 41) of this 
series. 

To play the game, run the program and follow the 
prompts. When you're asked to input a number, end 
your response with the SPACE BAR (remember the 
strange way scanf() works). Everything work okay? 
Let's examine this program in a little more detail. 

The function main() is written in a manner that 
makes the program's general operation clearly appar- 
ent. All the details are taken care of in other func- 
tions. In other words, the program is structured. 

We start off by initializing the flag play to TRUE. 
This will get us into the while loop at Line 9. As long 
as play is true, this loop will repeat, allowing the user 
to play many games without rerurming the program 
each time. 

Once in the loop, we must initialize some variables. 
The counter turns tallies the player's guesses. The flag 
win tells main() when the player has made a correct 
guess. 

After initializing the variables, we call the func- 
tion getnumQ, which returns a random number be- 
tween 1 and 100. Next, since we had the forethought 
to initialize win to false, we enter the while loop at 
Line 12. This loop will repeat until win becomes true, 
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keeping the player guessing until he comes up with 
the right number. 

In the body of the loop, we increment the turn 
counter, get the player's guess, then check if he's right. 
If not, win remains false and the loop repeats. If it's 
been guessed correctly, program execution drops 
through to Line 17, where the player is told how many 
guesses were made. 

Line 18 calls play againQ to see if the player wants 

to continue. If so, the flag play remains true, and the 
outer while loop repeats. When play becomes false, 
the program ends, and the user's returned to the 
desktop. 

Easy, right? You should've followed the above with 
little difficuhy. 

The other fimctions are just as simple. The func- 
tion get numO uses the same method we incorpo- 
rated last month in our dice game to get a random 
number. The only difference is that now we're get- 
ting a number between 1 and 100 rather than between 
1 and 6. 

The function get guessQ incorporates a while loop, 

forcing the player to enter a number within the proper 
range. The loop will repeat until the gamester bends 
to our will. 

The fimction check guessQ checks if the player's 

guess was too high, too low, or right on the money, 
then prints the appropriate message. If the player has 
guessed right, then wn is set to TRUE (and, thus, 
win), and the game is over. 

Finally, the function play againQ asks if the play- 
er wants another whack at it. Once again, we use a 
while loop to guarantee a proper response. The call 
to getcharQ at Line 58 gets rid of the extra character 
scanfO likes to leave lying around. 

Some classy information. 

Before we take a look at the next two listings, we 
need to discuss a fun topic called "Storage Classes." 

All storage you define in your C programs has a 
storage class, whether you're aware of it or not. In 
our previous program examples, the storage classes 
were set automatically. We didn't have to concern our- 
selves with the details. That's all fine and dandy for 
a beginner, but sooner or later we're going to have 
to know how our variables are treated by the system. 

There are four C keywords that refer to the stor- 
age classes. They are: extern, auto, static and register. 

The keyword extern stands for external. Any vari- 
able that's not defined within a function falls into this 
class. Both Listing 1 and Listing 2 contain examples. 
Notice the arrays week[] and weeks[]. 

Unlike local variables that disappear once we're 



through with them, external variables may be acces- 
sed anywhere within your program. The only rule 
to remember is that, if their declaration appears in 
another file or after a function that refers to them, 
they must be declared as external in the function 
where they're used. Here's a declaration example: 
extern int nunbers; 

Automatic (or auto) variables are those declared 
within a function. They remain healthy and happy 
as long as we stay within the function where they 
were declared. The moment we exit, they vanish into 
that great CPU in the sky. It's not necessary to declare 
these variables by their storage class (we never have, 
right?) — but, if you wanted to, this is what it would 
look like: 

auto int nuMber; 

Variables of the class static are similar to automat- 
ic variables, except their values aren't forgotten when 
the function is exited. Don't try to access them in oth- 
er parts of your program, though. They're still stran- 
gers there. Look at this code fragment: 



HainC] 

{ 

for cx=o; x<5; 

counter CI ; 
} 



♦+XJ 



counter C) 

{ 

static int count=l; 

printfC'Xd ", t+count); 

The output from this example would be: 
2 3 4 5 6 

Each time we call counterO, the variable count is 
incremented and printed out. If we hadn't declared 
count as a static variable, the output would have been 
a string of 2s. 

Do you see why? When a static variable is initial- 
ized as we did in counter(), it receives its initial val- 
ue the first time we call the function. Thereafter, the 
declaration and initialization is ignored. This is only 
logical, since what good would a static variable be 
if it was reset each time we called the function? 

By not declaring count as static, it automatically 
becomes automatic (no, I'm not being redundant). 
Each time we call the function, it gets set to 1, then 
it's incremented and printed. This gives us that string 
of 2s. 

One last note on static variables. An interesting var- 
iation of this class can be created by defining it out- 
side any function. This type of variable is called 
"external static." This class varies from regular ex- 
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ternal variables, in that it can be accessed only within 
the file where i^^appears, and only in functions fol- 
lowing its declaration. 

The last class we need to discuss are register vari- 
ables. They're defined like this: 

register int nuMber; 

When we declare a register variable, we're request- 
ing that the value be stored in one of the ST's registers 
where processing is much quicker. Notice I used the 
word requesting. If there's no register free in which 
to store our variable, it becomes an automatic variable. 

Hip, hip array! 

We took a brief look at arrays when we wrote our 
sort program a couple of months ago. Now we're go- 
ing to dig a little deeper. 

First, let's tackle Listing 2. Suppose you're selling 
a peculiar product called a whamble (a what?) in your 
small business. At the end of the week, you want to 
write a quick and dirty program that'll print the num- 
ber of units sold that week. Listing 2 is just such a 
program. When you run it, your output should look 
like this: 

Sales for dav 1: 5 

Sales for day 2: 7 

Sales for day 3: 2 

Sales for day 4: 18 

Sales for day 5: 7 

Sales for day 6: 1 

Sales for day 7: 6 

Total sales: 38 

The first thing we must do in this program is in- 
itialize an array. In our sorting program, we didn't 
worry about that. All we did was declare the array, 
then fill it, later in the program, with the numbers 
the user input. Sometimes, though, you'll need to 
have the array data stored and ready to process at 
run time. Line 2 shows you how to do this. 

To initialize an array as part of its declaration, the 
array name is followed by an equal sign, which, in 
turn, is followed by the elements of the array, sepa- 
rated by commas and placed between brackets. Here 
are more examples: 

int nuMbersCl = (1,2,4}; 

int nuMbersISI = <1,2,4}; 

float nuNberstJ = Cl. 1,2. 2,4.4}; 

The first is just like the declaration on Line 2 , and 
the second example is, in this case, functionally the 
same as the first. However, it does present potential 
difficulties. 

For instance, in the first example, the compiler au- 
tomatically makes the array size the same as the num- 
ber of values that follow. In the second example, we're 



telling the compiler that, no matter what, we want 
a three-element array. Here's a strange one: 
int nuHbersC4] = Cl,2}; 

What do you suppose happens here? Well, the com- 
piler sets aside an array containing four elements, 
then looks to see what we've got stuffed between the 
brackets. 

The first value goes into the first element, the sec- 
ond into the second. After that, if it's an external or 
static array, the remaining elements are initialized 
to 0. Otherwise, whatever garbage happens to be in 
those locations filling out the remainder of the ar- 
ray becomes an authorized resident. Trouble, for sure. 
Here's another problem maker: 

int nuMbersl2J = {1,2,43; 

There's no way you're going to get away with this. 
Your compiler is sure to present you with some snide 
comments on your programming skills — and they'll 
be well deserved. You can't get three data items into 
a two-element array. 

Continuing with Listing 2 , after we've initialized 
our array, the program uses a for loop to access each 
element, add it to the total and print it out. Except 
for a little nuance with the way we've initialized the 
for loop, you've seen all this before. Just remember 
that an array starts at element 0. 

Now, how about that nuance I mentioned? Look 
at Line 6. I hope you remember about for loops. The 
first expression in the parentheses is the initializa- 
tion, the second is the loop control, and the third 
is the loop's step value. 

In this example, we've taken the opportunity to in- 
itialize not only the loop variable, but the accumula- 
tor total as well. This is a handy way to set variables 
used within a loop to their starting values. 

Line 7 offers a new assignment operator for your 
inspection, one that's quite similar to the increment 
and decrement operators. Line 7 does the same work 
as this line of code: 

T0TAL=T0TAL4^I«EK [il 

The right side of the expression is added to the left. 

Another dimension. 

C is also capable of handling multi-dimensional ar- 
rays. You can think of these as arrays of arrays. List- 
ing 3 illustrates how to handle them. 

The declaration is similar to that of a one-dimen- 
sional array, except we've added another set of brack- 
ets, to tell the compiler how we would like the array 
set up. 

Look at Line 2 . Here we're declaring an array with 
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two sets of seven elements. You can think of this as 
a matrix, with two rows and seven columns. 

When we initialize the array, each row of data is 
placed within its own set of braces. The rows, just 
like the data within, are separated by a comma. Fi- 
nally, the entire array is enclosed with another set 
of braces. This tells the compiler how we want each 
element placed. Take a look at this: 

int aC2J[31 = { 
{1,2>, 
<:3,4,S) 

Here, we've declared an array which contains two 
arrays of three elements each. But wait a minute! In 
our initialization, we're missing a data element for 
the first subarray. How's this going to work out? Is 
the first element of the second row going to end up 
as the third element in the first? 

Nope. The 1 will be placed in the first element of 
the first row. The 2 will go in the second. The third 
element of the first row will be initialized to 0. (Re- 
member that rule about external data?) The second 
row will be initialized just the way we want it. No 
mix-ups. 

To tell you the truth, you don't need all those ex- 
tra braces. We could've initialized w^eeks[][] by plac- 
ing all the data between one set of brackets, like this: 

{3,6,7,4,3,8,9,5,3,7,9,3,2,6} 

The array will still function properly, but it's much 
harder to see how the data's divided up — and we've 
left ourselves open for possible errors. If we should 
accidentally (or deliberately, if you happen to enjoy 
that sort of thing) leave out one of the data elements, 
the compiler will no longer sort it out for us, mak- 
ing sure everything gets into its proper location. 

It'll assign each element consecutively until it runs 
out of data, and then initialize the rest to 0. Your pro- 
gram is then sure to act peculiarly. This type of er- 
ror can be extremely difficult to locate. 

Whambles for sale. 

Okay, enough talk. Get Listing 3 compiled. A pro- 
gram run will look like this: 
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sales 


for 


day 


1: 


3 


sales 


for 


dav 


2: 
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Sales 


for 


day 
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Sales 


for 


day 


4: 


4 


Sales 


for 


day 


5: 


3 


Sales 


for 


day 


6: 


8 


sales 


for 


day 


7: 


9 


Sales 


for 


week 1 


I 


sales 


for 


day 


1: 


5 


Sales 


for 


day 


2: 


3 


Sales 


for 


day 


3: 


7 


Sales 


for 


day 


4: 


3 


Sales 


for 


day 


5: 


3 


Sales 


for 


day 


6: 


2 


Sales 


for 


day 


7: 


6 


Sales 


for 


week z 


: 



40 



35 
Total sales for Honth: 75 

Two weeks. Wow, what a short month. Yes, I know 
there are usually four weeks in a month. I limited 
the output, so the data wouldn't scroll off your screen. 
What a nice guy! 

This program is an example of indexing a two- 
dimensional array. Lines 9 and 10 set up nested for 
loops. The outer loop handles the indexing of the 
weeks; the inner loop indexes days. 

The day loop is performed seven times for each 
iteration of the week loop. Line 11 shows how all this 
relates to our array. 

The first subscript refers to each row of data 
(weeks). The second is the columns, or days. The first 
time we get to Line 11, w and d both equal 0. So we're 
looking at weeks[0][0], that is, the data in row and 
column 0. If we look at the array initialization, we 
see that this is the value 3. 

The day's total sales are printed, then the inner loop 
is repeated, incrementing d and advancing us to the 
row O's next element. Looking at the data, we see 
that weeks[0][1] equals 6. 

This loop repeats until d is no longer less than 7. 
At that point, we drop through to Line 14 and print 
the total for the week, and add to our monthly total. 

Returning to the outer loop, w is incremented, and 
we re-enter the inner loop, resetting d to 0. Now we're 
referencing weeks[1][0], row 1 and column 0, or the 
value 5. The inner loop continues through row 1 just 
as it did with row 0. 

When we return to the outer loop, the value of w 
is incremented again, and thus is no longer less than 
2 . The looping is completed , and program execution 
continues at Line 18, where the monthly total is 
printed. 

Red and flustered. 

That's it for this month. Sit back and relax. Put 
your feet up, massage your temples to get rid of that 



thundering headache (arrays are like that; yeah, they 
are). 

Now that we've got all the work out of the way, it's 
confession time. It seems that a couple of the list- 
ings from issue 40's C-manship got a bit messed up. 
I'm still not sure how it happened, but if you were 
getting strange results, you can place the blame firmly 
on my shoulders. 

The following corrections should be made (this in- 
cludes those of you with disk subscriptions). 

Line 8 of Listing 3 should be: 

printf f ••>>:8ied<\n", nuH ); 

Line 11 of Listing 4 and Line 9 of Listing 6 should 
be: 

ch - getcharCJ ; 

Also, a couple of sentences got dropped from the 
end of page 75. The last part of the paragraph should 
read: 

In other words, in our program, every place 
the word TEXT appears, the string Your full 
name is will be substituted. Notice that there's 
no semi-colon at the end of a #define statement. 
It's a compiler directive and not subject to the 
semi-colon rule. 

Happy trails. 

Next month, we'll start developing our own input 
routines, so we won't be at the mercy of such func- 
tions as scanfQ and getsQ. Till then, fool around a bit 
with arrays. They're neat little critters. H 

Listing 1. 
C listing. 

tlinclude <stdio.h> 
tSinclude <osbind.h> 
ndefine TRUE 1 
ttdefine FALSE e 

MainO 
{ 

int nuH, guess, win, turns, play; 

play = TRUE; 
while Cplay) C 

turns = 8; win = FALSE; 
nuN = get_nuHC}: 
while (!win} C 

♦♦turns; 

guess = 9et_guess(l; 

win = check_9uess(nuH, guessJ ; 
} 

printf t"lt took you Xd turns. \n\n", turns); 
play = play—again C) ; 



int get-nuMC) 

int n; 

n = Cint} RandoMC) ; 
n = abscn) r. 99 ♦ 1; 
return CnJ; 



int 9et_guessC} 
int g; 
g = e; 
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number from 1 to lee: 



">; 



While tq<l II g>iee) { 
printf ("Enter a nuN 
scanfC-r.d", «9}; 
printf C"\n\n*'>; 

return (9); 



int check_guess(nuN, guess] 
int nun, guess; 

int wi=FaLSE; 

if (guess < nuio 

printf ("Too loi#\n\n">; 
else if (guess > nuM 

printf ("Too hi9h\n\n"l; 
else { 

printf ("Vou guessed it!\n"); 

Ml = TRUE; 

> 
return (unJ ; 



int play-again (1 
int ch, p; 

P = -l; 

ch = getcharO; 

While ( (P!=TIIUE) SS (P!=FALSE} ) ( 
printf ("Plajp again? "j ; 
if ( (chrgefchlrO) =='•»■ || ch == "V) 

P = TRUE; 
else if (Ch == 'n* || ch == 'N'l 
P = FftLSE; 

printf("\n\n"J; 
return (pj; 



Listing 2. 
C listing. 



ttinclude <stdia.h> 

int week!] = {5, 7, 2, le, 7, 1,6}; 

naind 
t 

int i, total, ch; 

for (i=B, totaire; i<7; i*+J 
total *- weekCil; 
printf ("Sales for day Xd: 

printf ("\n"J; 

printf ("Total sales: r.d". total}; 

Ch = getcharO; 



{ 
Xd\n", 



i+1, weekCill; 



Listing 3. 
C listing. 



itinclude <stdio.h> 

int weeks [2] [7] = { 
t3.6,7,4,3,8,9>, 
{5, 3,7. 9. 3, 2, 6> 

Maind 

int w,d,Ntot,wtot,ch; 

for (w=e, Mtot=e; w<2; w+*> { 
for (d=o,Mtot=«: d<7; d**i < 
wtot *= weeks [wlldl; 
printf ("Sales for day Xd: r.d\n" 

printf ("Sn"3 ; 

printf ("Sales for week Xd: XdVnXn" 

Mtot ♦= wtot; 

printf ("\n\n">; 

printf ("Total sales for nonth: Xd\n", 

ch = getcharu; 



, d+l, weekslHlEdJ}; 
, w+l, wtot); 

utotJ ; 
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100 H & D Forth 30 
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24 Prolog 54 

24 OTHER VALLEY SOFTWARE 

Delta Patrol— RGB 15 
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29 Bratacus 28 
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year 


Cost + 5% 


S/H 


Total 

$50 


















Mass. residents add 5% sales tax 
Vloney Order enclosed for 




D Check or 
Name 


$ 


Address 


City 



Telephone . 



State . 



-Zip. 
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Abacus books 




ATARI ST MACHINE LANGUAGE 

ATARI ST GEM PROGRAMMER'S REFERENCE 

ATARI ST INTERNALS 

ABACUS SOFTWARE, INC. 

P.O. Box 7211 

Grand Rapids, Ml 49510 

(616) 241-5510 

$19.95 each 



by Douglas Weir 



The Atari ST may have been "made 
for America," as the ads put it, but there 
are signs that it has also prompted a Ger- 
man invasion. A Dusseldorf, West Ger- 
many company called Data Becker has 
apparently had teams of experts busy 
since the ST was first introduced, writ- 
ing a series of books to cover just about 
every programming aspect of the ma- 
chine. 

Presenting the Atari ST, the first vol- 
ume of the series, translated into Eng- 
lish and published in the United States 
by Abacus Software, appeared last fall. 
At the time, I thought it a bit long on 
copy and short on hard information. 
Now, however, it's been joined by three 
comrades, in the same distinctive field- 
gray paper covers. One of these is very 
good, and two are really excellent. 

Atari ST Machine Language falls into 
the "very good" category. The authors 
advise you to "get a book on the 68000 
processor and its instructions" (some- 
thing like the official Motorola manual) 
as a companion to this volume, intend- 
ed only as an introduction to assembly 
language programming on the ST. The 
274-page book has eight chapters, cover- 
ing the expected topics: binary repre- 
sentation, 68000 architecture, flow of 
control, data structures, etc. 

Beware the discussion of assemblers 



in chapter 6; the authors have some sort 
of generic assembler in mind, not the 
(notorious) "AS68" supplied with the 
Atari Developer's Kit. 

The two final chapters first take you , 
step-by-step, through the development of 
a simple decimal-to-binary conversion 
program; then eight sample ST assem- 
bly language programs are presented in 
chapter 8. Programs are accompanied by 
detailed descriptions of their operation, 
and each comes complete with its own 
keyboard and console I/O routines (all 
run under TOS — GEM is not discussed 
in this book). 

Essentially, the book is arranged as a 
read-it-through tutorial, with no exer- 
cises. Written in a pleasant style, its oc- 
casional mistranslations only serve to 
make the prose rather endearing. 

Despite their reliance on flowcharting 
as a program development tool, I found 
the authors' treatment of most topics su- 
perior to (for example) that in the well- 
known Kane, ]-lawkins and Leventhal 
book, 68000 Assembly Language Pro- 
gramming, published by McGraw Hill. 

You'll have to pick your way through 
a fair number of misprints (though most 
are obvious), and you'll have to put up 
with having no index (apparently one 
more result of the famous "No Index" 
law enacted for computer book publish- 
ers several years ago). 

Still, I do think you'll find this book 
very useful if you are just starting as- 



sembly language programming on the 
ST — especially when used with the 
Motorola manual and your own assem- 
bler's documentation. 

Programmers now have a handy one- 
volume GEM guide in the Atari ST GEM 
Programmer's Reference (414 pages). 
Anyone programming with GEM should 
have a copy of this book. The bulk of its 
contents — which we find in chapters 3 
and 4 — cover the VDI and AES func- 
tions. 

Each function is listed separately, with 
at least one page to itself, in a format 
similar to (but more readable than) that 
used in the Digital Research manuals in 
the Atari Developer's Kit. There are two 
short sections, "Sample Programs using 
the VDI" and "Sample Programs using 
the AES," containing short C and assem- 
bly language programs. 

An interesting aspect of the assembly 
language programs is that they're com- 
pletely self-contained. All the contrl and 
intin, etc. arrays are declared explicitly, 
and calls are made directly through the 
entry point in the ST BDOS, rather than 
by linking to AESBIND and VDIBIND. 
It's nice to know how to do this, if one 
has to. 

Where appropriate, the authors have 
included ST-specific information on par- 
ticular functions. For example, we're told 
that vst load fontsQ will always re- 
turn a null, since no additional charac- 
ter sets are now available for the ST. 
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There are, however, cases where we 
get less information than the DRI manu- 
als offer: for example, pages 5-19 of the 
VDI manual go into quite a bit of detail 
on vst pointO (a function to set the cur- 
rent graphic text character height), while 
the Abacus entry on page 133 confines 
itself to a few vague sentences. 

Chapter 1 is a fairly cursory overview 
of GEM on the ST (I'm starting to think 
that GEM/TOS on the ST could be a Jap- 
anese art film, where everyone's account 
of the same subject is unrecognizably 
different from everyone else's). Chapter 
2 includes short introductions to pro- 
gramming in C and assembly language. 
Also in chapter 2 is a description of the 
main parts of the Atari Developer's Kit, 
with some helpful tips on using the C 
compiler, assembler and linker. As 
seems usual with these Abacus books, 
there are misprints, but most are obvi- 
ous, and none of those I noticed would 
lead to serious misunderstanding. 

In the appendices, you'll find a list of 
VDI and AES functions, as well as a list 
of the 68000 instruction set. There's also 
(surprise!) an index, but the authors have 
managed to maintain partial compliance 
with the above-mentioned law by not 
putting the VDI and AES function lists 
in alphabetical order. 

All joking aside, I found this a very 
useful book, one I think no serious GEM 
programmer should do without. 

Finally, with 446 pages, Mori ST In- 



ternals is the biggest and the best of the 
current lot. This book is filled with in- 
dispensable information. 

You might also want to acquire a copy 
of the most recent version of the Atari 
Hitchhiker's Guide to the Bios, included 
in the Developer's Kit. The authors of the 
Abacus book seem to have used an earli- 
er version of the Guide, so that (for the 
most part) anything discussed beyond 
page 43 of the August 26 version of the 
Guide is not covered here. This includes 
such things as Cartridge Support, ROM 
Initialization, Boot Sectors, etc., which 
a lot of programmers can probably do 
without. 

The book has two main divisions, the 
first covering hardware aspects of the 
ST; the second, software. There's a short 
section on the 68000, 7 pages on the 
four custom chips, and sections on the 
floppy disk controller chip, 68901 multi- 
function chip, 6850 ACIA chips and the 
sound chip. The latter sections consist 
of short introductions and fairly detailed 
descriptions of pinouts and chip archi- 
tecture. Addresses and descriptions of 
all the ST's I/O registers are given. 

Next comes an 18-page section on the 
keyboard interface, with descriptions of 
the mouse and the keyboard processor 
commands, and a chart of ST key codes. 
A 2-page assembly language program, 
which the authors used to read the 6301 
(keyboard processor) ROM and output 
it to a printer, is included. It provides. 



incidentally, an example of how to use 
some of the GEMDOS and XBIOS calls. 

Shorter sections on the video connec- 
tion, the Centronics interface, the RS- 
232 and MIDI interface, the cartridge 
slot, and the floppy disk and DMA in- 
terface follow. These are all hardware 
descriptions and consist, for the most 
part, of pinout discussions. All in all, 
the hardware section of the book oc- 
cupies the first 100 pages. 

Software aspects take up the rest of 
the book. GEMDOS, BIOS and XBIOS 
calls receive detailed treatment on pages 
105-205. The GEMDOS funct jns are the 
TOS "system-level" calls — used, for ex- 
ample, to access the disk, get keyboard 
input, etc. Many of them resemble the 
IBM PC MS-DOS system calls. 

Each function is described, and most 
are accompanied by assembly language 
examples to show how they're used. The 
ST BIOS and XBIOS functions are allot- 
ted a page each. Both have their own ex- 
planatory text and assembly code 
samples. (I noticed an important mis- 
print on page 199: XBIOS fimction num- 
ber 34 — kbdvbase — returns its pointer 
in do, not aO.) 

There is a good discussion of the 
"line a" codes on pages 206-233. Pages 
234-254 deal with the ST's exception 
vectors, the VT52 emulator and the ST 
system variables. There is (yet another) 
summary of the 68000 instruction set on 
pages 255-267. 
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Finally, on pages 268-442, you'll find 
a complete (fully commented) assembly- 
language source code listing of the ST 
BIOS. This includes the code for all the 
GEMDOS, BIOS and XBIOS calls, the 
68901, keyboard and VT52 routines, and 
the screen dump. 

Even if your BIOS version is different 
from that given here (you can check, by 
comparing the date-of-creation bytes 
close to the beginning of the listing with 
yours), you will certainly find this sec- 
tion extremely useful, if you're at all in- 
terested in the ST's internal workings. 

I highly recommend this book. But I 
feel bound to mention that — you 
guessed it — there's no index, and the 
wealth of information presented can 
make this a handicap in the early stages 
of using the book. H 
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ONLY 

5T Printer Coble B 
ST R5232 Modem Coble ■ 
Surge Dor with 6 outlets ■ 
ST Disc Drive Coble 6 foot ■ 
1200/300 AutoMod em (Hyes Type) only in9.95 
Oiizen Printer modelt20D. . . superbuyS199.95 
1040 5T Color System ond free sofiwore $1149.95 

Free shipping with ony order 
We service whot we sell since 1963 

COMPUTER OUTLET 
(619) 262-6200 

5861 Mission Gorge Rd. /Son Diego. CA 92120 
15 DAY TRIAL/MONEY DACK WARRANTY 

Coll or write for our monthly Hot Sheet 
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The Exciting Atari ST 
Computers Are Here... 

New software and enhancements are arriving 

daily for tliis wonderful computer. We will 
evaluate and carry only the best products, so 
you can depend on us to support everything 

we sell! 

Call or circle our Reader Service Number on 

the Response Card to put your name on our 

mailing list. That will entitle you to our FREE 

CATALOGS with product reviews, lips and 

rumors on the ST. 

VISA and MaiteTCard flaifly ac»pte<} 
Toll Free 800-782-7007 (Orejo. 479 9516) 




837 NE 6th St.-Granti Pau, OR 97526 
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124 Abacus Software 46ST 
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The Shanner Planner™ 
gives you and comes with: 

• Storage for four disks -3'/2" or 
5V4" (speciiy preference 
when ordering) 

• 5 X 8" Notepad - can also 
accommodate documentation 
up to 300 pages 

• Pen and Pencil Compartment 

• Ruler Slot 

• Business Card Section 

• 5 Year Calendar 

• Full Function Memory Calculator 

• Each Shaimer Planner comes 
with either four 3'/2" disks or 
four 5 'A" diskettes 

The unique velcro locking system 
ensures that your important media 
and contents are safely secured in 
their compartments at all times. 

Measuring approximately the size of 
a normal executive portfolio, The 
Shamier Planner will fit comfortably 
into any size attache or carrying case, 
and comes packaged in an attractive 
gift giving box. 



The 
Shanner 
Planner 



Remember the expression "A picture is worth a 
thousand words?" Take a second look. The Shanner 
Planner™ is the first ever fijU system portfolio created 
specifically for the computer user. Designed to 
address the individual needs of the computer in- 
dustry, The Shanner Planner is tastefully constructed 
of long lasting, durable, textured nyion (it's the 
in thing today) to maintain its smart appearance 
over time. 



SHANNER INTERNATIONAL CORP. 

The Shanner Planner" is a creation of, malieted worldwide by, 
and is a Trademark ot SHANNER INTERNATIONAl CORP. 
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Dealer Inquiries Accepted 
CaU 800/828-6637 



-Shanner Planner(s). 



Please send me 

I am enclosing $ 

(CA residents add $2,60 tax per Planner) 

Please mal^e cineck or money order 

payable to: 

Shanner International Corp. 

453 Ravendale Drive 

Mountain View, CA 94030 



Canadian Orders: 

Canadian cost per Planner is $49.95. 

(Ontario residents add $3.50 PST per 

Planner) Please direct orders to: 

Shanner Sales & Marketing, Inc. 

450 Garyray Drive 

Weston, Ontario 



Name 



Address 



City 



State 



Zip 



For all orders: Please add $3.00 per Planner for shipping and handling. C.O.D.'s and 
purchase orders will not be accepted. Please allow 21 days for delivery. 
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M/L Editor 

For use in machine language entry 



by Clayton Walnum 



M/L Editor provides an easy method to en- 
ter our machine language hstings. It won't al- 
low you to skip lines or enter bad data. For 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch: it's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and , when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press V to delete the file, or N 
to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need be con- 
sidered . 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number 
As an added convenience, the editor will not 



respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 

When you finish a line, M/L Editor will 
compare the entries' checksum with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed begin the next 
line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to rim. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk). 

That's M/L Editor Use it in good health. H 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For further in- 
formation, see the BASIC Editor, page 
21. 



Listing 1. 
BASIC listing. 



AZ le DIN BFCie) ,NS(4>,a$Cl> ,e$lll ,F$I15I 
.FISCIS) 



BN ze LINE=ieee:RETRN=15S:B«CKSP=126:CHK5 

UH=8:EDIT=« 
GO 38 G05UB 45e:pa5iTiaN 18,6:? "Start or 
Sontinue? ";:G05UB 588:? CHR$(A) 

ZS 48 POSITIOM 18 3:? "FILEMAHE"; : INPUT F 

$:P0KE 752,1:? •• " 
FE 58 IF LENCF$><3 THEN POSITION 28,18:? 

GOTO 48 

NF 68 IF FSC1,2J<>"D:" THEN FlS="D :";FlS C 

3I=FS:G0T0 88 
KL 78 F1S=FS 

TN 88 IF CHR$C«)="5" THEN 128 
ru 98 TRAP 438:0PEN It2 ,4, 8, Fl$ : TRAP 118 
HQ 188 FOR X=l TO ie:GET tt2,a:NEXT X:LINE 

=LINE«18:G0T0 100 
HH lie CL05E U2:0PEN tl2, 9 , 8, FIS : GOTO 178 
VT 128 TRAP 16a:0PEN 112 , 4, 8, Fl$ : GOSUB 448 

:POSITION 18,18:? "FILE ALREADY EXI5T5 

■■":P0KE 752,0 
ZU 130 POSITION 18,12:? "ERASE IT? "; :GOS 

UB see: POKE 752,1:? CHR$CA1 
VH 140 IF CHR$CA]="N" OR CHR$CAl="n" THEN 

CLOSE tt2;G0T0 38 
OG 158 IF CHR$CA1<>"Y" AND CHR$CA)<>"V" T 

HEN 130 

BH 160 CLOSE n2:aPEN tt2,S,0,FU 

IE 178 GOSUB 450: POSITION 10,1:? "CEEEEI 

ISCB: ";LlNE:CHKSUH=e 
GH ISO L1=3:F0R X=l TO 16:P0SITI0N 13«CX< 

18Itl2KfX>9I ,Xt2:P0KE 752,0:? "BYTE «■■ 

;X;": "; :GOSUB 310 
KH 1)0 IF EDIT AND L=e THEN BYTE=BFCX) :G0 

TO 2ia 
FY 288 BYTE=VALCN$] 
BU 218 POSITION 22,Xt2:? BYTE;" " 
YZ 220 BF(X]=BYTE:CHK5UH=CHKSUN'»BYTE»X:IF 

CHKSUH>1993 THEN CHKSUHzCHKSUM-18ee8 
MS 230 NEXT X:CHKSUH=CHKSUIHLINE:IF CHKSU 

M>7S11 THEN CHKSUH^CHKSUN-lOeoe 
IG 240 POSITION 12,X4'2:P0KE 752,0:? "CHEC 

KSUM: ";:L1=4: GOSUB 310 
EH 250 IF EDIT AND Lro THEN 278 
OH 268 C=VALCN$) 
5Y 278 POSITION 22,X*2:? C;" 
IL 280 IF C=CHKSUM THEN 300 
DI 230 GOSUB 448 : EDIT=1 :CHKSUH=e: GOTO ISO 
LH 308 FDR X=l TO 16: PUT n2,BF CX> : NEXT X: 

LINE=LINE«18:EDITr8:G0T0 178 
FV 318 L=0 
LG 320 GOSUB 500: IF A=ASCC"0") AND X=l AN 

D NOT EDIT THEN 428 
PO 330 IF AORETRN AND AOBACKSP AND IA<4 

8 OR A>S71 THEN 320 
ID 335 IF A=RETRN AND L=8 AND X>1 THEN IS 

8 
JR 348 IF CCA=RETRN AND NOT EDIT] OR A=B 

AGKSP> AND L::e THEN 320 
DM 350 IF ArRETRN THEN POKE 752,1:? " ":R 

ETURN 
GG 36e IF AOBACKSP THEN 408 
SA 370 IF L>1 THEN N$=NSC1,L-11 :G0T0 3)* 
AS 380 N«="" 

RE 3?e ? CHRSCBACKSP] ; :L=L-1:G0T0 320 
BB 408 L::Ltl:IF L>L1 THEN A=RETRN:G0T0 35 


HX 418 NS|L1=CHRSC«1 :? CHRS CA] ; : GOTO 328 
KN 420 GRAPHICS e:END 
VT 430 GOSUB 440: POSITION 18,18:? "NO SUC 

H FILE!":F0R X=1 to 100e:NEXT X:CLOSE 

n2:G0T0 38 
FD 448 POKE 710, 48: SOUND 0.100.12, 8: FOR X 

=1 TO 58:NEXT X:SOUND 0.e,e,e:RETURN 
HY 450 GRAPHICS 23: POKE 16, 112: POKE 53774 

,112:P0KE SSS.O:POKE 710,4 
XR 468 DL=PEEKC568)t256«PEEKC561144:P0KE 

01-1,70: POKE DL«2,6 
HN 470 FOR X=3 TO 39 STEP 2:P0KE DLtX,2:N 

EXT X:FOR X=4 TO 40 STEP 2:P0KE DL«X,0 

:NEXT X 
ZH 480 POKE DLt41,65:P0XE DL^42.PEEK(560> 

:P0KE DL«43,PEEKC5ei) :P0KE 87,0 

AC 490 POSITION 2.0:? "analog mi editor": 

POKE 559,34:RETURN 
HZ 508 OPEN <tl.4,0,"K:":GET iil,A:CLOSE ni 
: RETURN 
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COLOR MONITOR 

SALE!!! 




(Premium Quality) 

• Built in Speaker & Audio 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore 
•Atari - Aplus 3000 -etc. 

• One Year Free 
Immediate 
Replacement Warranty' 



>^0 



RGB 

Super High 
Resolution 





14" Color Computer Monitor' 

Sale 



*C64/Atari composite coble $9.95 

* CI 28 RGB/Composite 80 column 
coble $19.95. 

14" RGB & COMPOSITE COLOR MONITOR 

Allows use of C-128 and C64 mode - composite and 80 column RGB 
mode. Must be used to get 80 columns in color with 80 column 
computers. Specially designed for use with the C128's special composite 
video output, plus green screen only option switch, (odd $14.50 
shipping) 



(Premium Qualityl 

• Beautiful Color 
Contrast 

• High Resolution 

• Sharp Clear Text 

• Anti-Glare Screen 

• 40 Columns x 24 Lines 

• Front Panel Controls 

• Black Stripe Tube 

List $329°° 

$14995 



AdcJ $14.50 Shipping 



List $399.00 



$ 



Sole 



12" MAGNAVOX (NAP) 80 COLUMN MONITOR 

Super high resolution composite green screen monitor. 80 columns x 
24 lines, easy to read, plus speaker for audio sound included. 
Fontastic value. Limited Quantities. 



List $129.00 



259" 

79" 



Sale 



$ 



Turn Your Monitor into a TV Set Without Moving Your Computer 

$4995 



Elegant TV Tuner with dual UHF/VHF selector switches goes between your 
computer and monitor. Includes mute, automatic fine tuning and computer- 
TV selector switches. Inputs included for 300 ohm, 75 ohm, and UHF. Can be 
used with coble TV and VCR's. Fantastic Value. Limited Quantities. (Includes 
loop antenna for UHF & RCA connecting cables) 



List $129.95 



Sale 



15 Day Free Trial - 90 Day Immediate Re placement Wa rranty 

' LOWEST PRICES * BEST SERVICE IN U.S.A. * ONE DAY EXPRESS MAIL * OVER 500 PROGRAMS * FREE CATALOGS 



Add $10,00 for shipping, handling and insurance. Illinois residents 
please add 6'.% tax. Add $20.00 for CANADA, PUERTO RICO, 
HAWAII, ALASKA, APO-FPO orders. Canadian orders must be in U.S. 
dollors. WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT 
CANADA. Enclose Cashier Check, Money Order or Personal Check. 
Allow 1 4 days for delivery, 2 to 7 days for phone orders, ) day express 
mail ! Prices & Availability subject to change without notice. 
VISA - MASTER CARD — C.O.D. No. C.O.D. to Canada, APO-FPO 



COMPUTER DIRECT 

We Love Our Customers 

22292 N. Pepper Rd., Barrington, III. 60010 

312/382-5050 to order 
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Famous Smith Corona National Brand 

1 0" PRINTER SALE 

BGlavsf ySfholGsalG Cost PricGsH! 

• ONE YEAR IMMEDIATE REPLACEMENT WARRANTY 

• Speed: 120 or 160 characters per second • Friction Feed/Tractor Feed — Standard 

• 80 character print line at 10 CPi • 1 Line Buffer, 2K Buffer on 160 CPS Plus LQM 

• Six pitches • Graphics capability • Centronics compatible parallel interface 

• Features Bidirectional Print, Shortline Seek, Vertical And Horizontal Tabs 

Check These 
Features & Prices 

120 CPS 10'' Printer 




List 
$429.00 



f159 



160 CPS + Letter Quality 
Mode 10'' Printer 



emphasized 



This is a sample of our 
near-letter-quality print, 

There is standard data 
processing quality print 



List 
$499.00 



italic print 



f199 



(IBM — Commodore ) 

Siie/W«lght 

Height 5.04" Width 16.7" 

Depth 13.4" Weight 18.7 lbs. 

Internal Char. Coding 

ASCII Plus ISO 

Print Buffer Size 

120 CPS: 132 Bytes (1 line) 

120/160 CPS Plus LQM: 2K 

No. of Char. In Char. Sot 

96 ASCII Plus International 

Grophlci Capability 

Standard 60, 72, 120 DPI 

Horizontal 72 DPI Vertical 

Pitch 

10, 12, 16.7, 5, 6, 8.3, Proportional Spacing 

Printing Method 

Impact Dot Matrix 



SPECIFICATIONS 



Char. Matrix Size 

9H X 9V (Standard) to lOH x 9V 

(Emphasized & Elongate) 

Printing Features 

Bi-directional, Short line seeldng. Vertical 

Tabs, Horizontal Tabs 

Formi Type 

Fanfold, Cut Sheet, Roll (optional) 

Max Paper Width 

11" 

Feeding Method 

Friction Feed Std.; Tractor Feed Std. 

Ribbon 

Cassette — Fobric jnl^ed ribbon 

Ribbon Life 

4 million characters 



Interfaces 



(Apple — Atari — Etc. ) 

interface* 

Parallel 8 bit Centronics compatible 

120/160 CPS Plus NLQ: RS232 Serial inc. 

Character Mode 

10x8 Emphasized: 9x8 Standard; 10x8 

Elongated; 9x8 Super/Sub Script (1 pass) 

Character Set 

96 ASCII 

11x7 International Char. 

Line Spacing 

6/8/12/72/144 LPI 

Character Spacing 

lOcpi normal; Scpi elongated normal; 12cpi 

compressed; 6 cpi elongated compressed; 

16.7 cpi condensed; 8.3 cpi elongated 

condensed; 5. 12.5 cpi elongated proportional 

Cartridge Ribbon — List $19.95. Sale $12.9S. 



IBM $89.00 



Apple $59.00 



Atari $59.00 



Commodore $39.95 



Add $14.50 tor shipping, handling ond insurance. Illinois residents 
pleose add 6% % tox. Add $29.00 for CANADA, PUERTO RICO, HAWAII. 
ALASKA. APO-FPO orders. Canadian orders must be in U.S. dollars. WE 
DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. Enclose 
Cashiers Check, Money Order or Personal Check. Allow 14 days 
delivery. 2 to 7 days tor phone orders. 1 doy express mail! Prices & 
Availobility subject to change without notice. 
VISA — MASTERCARD — C.O.D. No COD. to Canoda or APO-FPO 



COMPUTER DIRECT 

We Love Our Customers 

22292 N. Pepper Rd., Barrington, III. 60010 

312/382-5050 to ord< 
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CALL ATARI CALL 

^OnTWOiXG ^3/16 m Ton*, fnrnrfriHn*.fD^ Disk 



(T) Tope, (C) Cartridge, (D) Disk. 



OAAAES 

Electronic Arts 

A0684 DR. J S LARRY BIRD GO 1 ON 1 (D) $24.95 

A0685 MOVIE MAKER (D) $23.95 

A0686 SEVEN CITIES OF GOLD (D) $23.95 

A0687 PINBALL CONSTRUCTION SET (D) $16.95 

A0688 MUSIC CONSTRUCTION SET (D) $16.95 

A0689 FINANCIAL COOKBOOK (D) $27.95 

A0690 M.U.L.E. (D) $16.95 

A0691 MURDER ON THE ZINDERNUEF (D) $16.95 

Atari 

A0544 STAR RAIDERS (C) $14.95 

A0545 MISSILE COMMAND (C) $14.95 

A0546 GALAXIAN (C) $14.95 

A0547 DEFENDER (C) $14.95 

A0548 DIG DUG (C) $16.95 

A0549 DONKEY KONG (C) $16.95 

A0555 PENGO (C) $16.95 

A0556 MILLIPEDE (C) $16.95 

A0557 JUNGLE HUNT (C) $16.95 

A0559 MOON PATROL (C) $16.95 

A0560 FINAL LEGACY (C) $16.95 

A0561 FOOTBALL (C) $14.95 

A0562 TENNIS (C) $14.95 

A0563 TRACK S FIELD (C) $29.95 

A0564 EASTERN FRONT (C) $14.95 

A0566 ADVENTURE WRITER (D) $19.95 

A0567 STAR VOYAGER (D) $14.95 

A0568 SARGON II (D) $16.95 

A0569 MS PACMAN (C) $16.95 

A0570 DONKEY KONG JR (C) $16.95 

A0571 POLE POSITION (D) $18.95 

Broderbund 

A05U MASK OF THE SUN (D) $24.95 

A0515 OPERATION WHIRLWIND (D) $24.95 

A0516 SPELUNKER (D) $18.95 

A0517 LODE RUNNER (D) $20.95 

A0518 WHISTLERS BROTHER (0) $1 8.95 

A0502 STEALTH (D) $18.95 

A0670 CHAMPIONSHIP LODE RUNNER (0) $26.95 

A0671 KARATEKA (D) $23.95 

Activlslon 

A0597 PAST FINDER (D) $20.95 

A0598 SPACE SHUTTLE (D) $19.95 

A0599 GHOSTBUSTERS (D) $18.95 

A0665 HACKER (D) $19.95 

A0666 MIND SHADOW (D) $18.95 

A0667 MASTER OF THE LAMPS (0) $1 9.95 

A0668 GR AMER CROSS CNTRY RD RACE (D) $18.95 

Suncom 

A0190 PARTY QUIZ (D) $14,95 

A0193 GENL EDITION 2 (D) $1 4.95 

A0194 GENL EDITION 3 (D) $14.95 

A0195 SPORTS EDITION (D) $14.95 

AOl 96 EDUCATION EDITION (D) $1 4.95 

A0197 BIBLE EDITION (D) $14. 95 

A0198 ENTERTAINMENT EDITION (D) $14.95 

Avalon Hill 

A0573 TGIF (D) $16.95 

A0574 FLYING ACE (D) $22.95 

A0575 MIDWAY CAMPAIGN (T) $12.95 

A0576 B-1 NUCLEAR BOMBER (T) $18.95 

A0577 LEGIONNAIRE (D) $20.95 

A0578 TAC (D) $26.95 

A0579 MARKET FORCES (D) $14.95 

A0580 PANZER JAGD (D) $20.95 

A0604 FREE TRADER (D) $19.95 

A0605 EMPIRE OF THE OVERMIND (D) $26.95 

A0606 QUEST OF THE SPACE BEAGLE (D) $22.95 

A0607 CLEAR FOR ACTION (D) $26.95 

A0608 PARIS IN DANGER (D) $26.95 

A0609 GULF STRIKE (D) $22.95 

A0504 GALAXY (D) $16.95 

A0505 ANDROMEDA CONQUEST (D) $16.95 

A0506 COMPUTER STOCKS & BONDS (D) $18.95 



Xerox 

A0412 STICKYBEAR BOP (D) $19.95 

A0413 STICKYBEAR NUMBERS (D) $19.95 

A04U STICKYBEAR BKST BOUNCE (D) $19.95 

A0415 STICKYBEAR OPPOSITES (D) $19.95 

A0416 STICKYBEAR ABC (D) $19.95 

A0417 STICKYBEAR SHAPES (D) $19.95 



BUSINESS 

A020I ATARI WRITER (C) $39.95 

A0203 VISICALC (D) $29.95 

A0204 HOME FILING MANAGER (D) $19.95 

A0206 FILEWRITER (D) $20.95 

A02C7 REPORT WRITER (D) $20.95 

A0208 MENU WRITER (D) $19.95 

A0209 FAMILY FINANCE (D) $19.95 

A02I HOME INTEGRATOR (D) $1 9.95 

A021 1 SMALL BUS INVENTORY (D) $1 1 .95 

A0212 SALESMAN'S EXPENSES (D) $11.95 

A021 4 RETAIL INVOICE (D) $1 1 .95 

A0215TIMEWISE (D) $14.95 

A0216 PEACHTREE G/L (D) $49.00 

A0217 PEACHTREE A/R (D) $49.00 

A0218 PEACHTREE A/P (D) $49.00 

A0717 SYN CALC (D) $32.95 

A0718 5YN CALC TEMPLATES (D) $14.95 

A0672 APPT PLNR/WKIY SCHEDULE (D) $12.95 

A0673 ACCOUNTS RECEIVABLE (D) $1 1 .95 

A0674 ACCOUNTS PAYABLE (D) $1 1 .95 

Synapse 

A0534 ENCOUNTER (D) $14.95 

A0535 BLUE MAX 2001 (D) $18.95 

A0536 QUASIMODO/AIR SUPPORT (D) $16.95 

A0537 NEW YORK CITY/ELECTRICIAN (D) $16.95 

A0538 RAINBOW WALKER/COUNTDOWN (D) . . $16.95 

A0539 FORT APOCALYPSE (D) $20.95 

A0540 BLUE MAX (D) $20.95 

A071 5 MIND WHEEL (D) $25.95 

A0716 ESSEX (D) $25.95 

Epyx 

A0520 JUMPMAN (D) $15.95 

A0521 DRAGON RIDERS OF PERN (D) $18.95 

A0522 SUMMER OLY GAMES (D) $24.95 

A0523 PITSTOP II (D) $24.95 

A0524 BALL BLAZER (D) $24.95 

A0525 RESCUE ON FRACTULUS (D) $24.95 

A0693 KORONIS RIFT (D) $24.95 

A0692 THE EIDOLON (D) $24.95 

Strategic Simulations, Inc. 

A0601 SHOOTOUT AT OK GALAXY (D) $17.95 

A0602 DNIEPER RIVER LINE (D) $24.95 

A0603 SPACE COWBOY (D) $18.95 

A0526 KNIGHTS OF THE DESERT (D) $24.95 

A0527 FIELD OF FIRE (D) $24.95 

A0528 FORTRESS (D) $22.95 

A0529 COSMIC BALANCE (D) $24.95 

A0530 IMPERIUM GALATUM (D) $24.95 

A0531 RAILS WEST (D) $24.95 

A0532 TIGERS IN THE SNOW (D) $24.95 

A0533 50 MISSION CRUSH (D) $24.95 

A059O BROADSIDES (D) $24.95 

Aa591 COMPUTER QUARTERBACK (D) $24.95 

A0592 COMPUTER AMBUSH (D) $34.95 

A0593 COMPUTER BASEBALL (D) $24.95 

A0712 COLONIAL CONQUEST (D) $24.95 

A0713 COMBAT LEADER (D) $23.95 

A071 4 KAMPFGRUPPE (D) $34.95 



Atari 

A0420 ATARI MUSIC I (D) $19.95 

A0421 ATARI MUSIC II (D) $19.95 

A0422 INTRO PROG I (T) $14.95 

A0423 INTRO PROG 11 (T) $14.95 

A0424 INTRO PROG III (T) $14.95 

A0425 ATARI LAB STARTER (C) $44.95 

A0426 ATARI LAB LIGHT MOD (C) $33.95 

A0428 SKYWRITER (C) $16.95 

A0429 CONVERSATIONAL FRENCH (T) $16.95 

A0430 CONVERSATIONAL SPANISH (T) $16.95 

A0431 MY FIRST ALPHABET (D) $16.95 

A0432 SPEED READING (T) $19.95 

A0433 TYPO ATTACK (C) $16.95 

A0435 VERBAL MODULE SAT (D) $29.95 

A0436 SAT SAMPLE PRETEST (D) $17,95 

A0437 MATH MODULE SAT (D) $29.95 

A0438 TOUCH TYPING (T) $14.95 

A0439 JUGGLES RAINBOW (D) $16,95 

A0440 JUGGLES HOUSE (D) $16,95 

A0442 TOUCH TABLET/SOFTWARE $49.00 

A0443 PAINT (D) $19.95 

A031 5 PILOT/TURTLE GRAPHICS (C) $29,95 

A0316 LOGO (C) $39,95 

A0318 ASSEMBLER/EDITOR (C) $19.95 

A0319 MACRO ASSEMBLER (C) $19.95 

Spinnaker 

A0444 LINKING LOGIC (C) $16.95 

A0445 DANCE FANTASY (C) $16.95 

A0446 MEMORY MANOR (C) $16.95 

A0447 LOGIC LEVELS (C) $16.95 

A0448 KINDERCOMP (D) $16.95 

A0449 PACEMAKER (D) $16,95 

A0450 KIDS ON KEYS (D) $16.95 

A0451 GRANDMAS HOUSE (D) $16.95 

A0452 KIDWRITER (D) $16.95 

A0453 FRACTION FEVER (D) $18.95 

A0454 IN SEARCH AMAZ THING (D) $22,95 

A0455 TRAINS (D) $18.95 

A0456 ALPHABET ZOO (D) $16.95 

A0457 AEROBICS (D) $22.95 

A0710 DELTA DRAWING (C) $16.95 

A071 1 ADVENTURE CREATOR (C) $16.95 

American Educational Computer 

A0459 VOCABULARY WORD BLDR (D) $16.95 

A0460 GRAMMAR WRK USE SKILLS (D) $16,95 

A0461 WORLD GEOGRAPHY FACTS (D) $16.95 

A0462 SPANISH VOCAB SKILLS (D) $16,95 

A0463 FRENCH VOCAB SKILLS (D) $16.95 

A0464 WORLD HISTORY FACTS (D) $16.95 

A0465 US HISTORY FACTS (D) $16.95 

A0466 US GEOGRAPHY FACTS (D) $16.95 

A0467 US GOVERNMENT FACTS (D) $16.95 

A0468 A PLUS LEARN TO READ (D) $24.95 

A0470 A PLUS READING COMPREHENSION (D) .$24.95 

A0471 COMPUTER LEARNING PAD $37.95 

A0418 BIOLOGY FACTS (D) $16.95 

A0493 ELEM SCIENCE 3 * 4 (D) $16.95 

A0494 ELEM SCIENCE 5 S 6 (D) $16.95 

A0495 ELEM SCIENCE 7 « 8 (D) $16.95 

DLM 

A0680 SPELLING WIZ (D) $19.95 

A0681 ALIEN ADDITION (D) $19.95 

A0682 METEOR MULTIPLICATION (D) $19.95 

A0683 ALLIGATOR MIX (D) $19.95 

ArtiMOrx 

A0738 LINKWORD LANGUAGE-SPANISH (D) . . . $17.95 

A0739 LINKWORD LANG-FRENCH (D) $17.95 

A0740 LINKWORD LANG-GERMAN (D) $17.95 

A0741 LINKWORD LANG-ITALIAN (D) $17.95 

A0663 MONKEYMATH (D) $15,95 

A0664 MONKEY NEWS (D) $15,95 



Add S3 00 for shipping, handling and insurance Illinois residents 
pleose odd 6% tox Add S6 00 for CANADA PUERTO RICO HAWAII 
AtASKA APO FPO orders Conodion orders must be m US doHors 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Coshiers Check Money Order or Personol Check Allow 14 
days for delivery 2 to 7 doys for phone orders. 1 doy express mail! 
VISA - MASTERCARD - COD, 

No C O D, to Canada APO FPO 



ORDER COMPUTER DIRECT 

^r^^\ ^\ ^L ^# We Love Our Customers 
I V^ l^ #^ ■ 22292 N. Pepper Rd., Borrington, III. 60010 

312/382-5050 to order 
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■I 152K Lowest Price In The USA! i52k 

^. Computer System Sale 

* Students * Word Processing • Home • Business 




$379 



SYSTEM PRICE 



LOOK AT ALL YOU GET FOR ONLY 

LIMITED QUANTITIES 

©Atari 130XE 152K Computer 

©Atari 1050 127K Disk Drive 

©Atari 1027 Letter Quality 20 CPS Printer 

Atari Writer Plus Word Processer with Spell Checker 

Atari BASIC Tutorial Manual 

" "'^' TOTALS 



LIST PRICE 

$249.00 

299.00 

299.00 

59.95 

16.95 



INDIVIDUAL 

SALE PRICE 

$134" 

159" 

159" 

49" 

12" 



All connecting cables S T.V, interface i 
it Monitors sold separetly. 



$923.90 $517.75 



SAVE 
OVER $100 

All 5 ONLY 

37900 

SYSTEM 
SALE PRICE 



$ 



CALL FOR 1027 PRINTER REPLACEINAENT OPTIONS 



OtKer Accessori< 

■tfr 12" Hi Resolution Green Screen Monitor 
tV 13" Hi Resolution Color Monitor 



List 

$199.00 
$399.00 



Sale 

$79.95 
$159.95 



Add $9.95 for 
Connection Cables 

Add $10 for UPS 



15 DAY FREE TRIAL. We give you 15 days to try out tfiis ATARI COMPUTER SYSTEM! ! If it doesn't meet your expectations, just send it back to us prepaid 
and we will refund your purcfiase price! ! »0 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the ATARI COMPUTER SYSTEM equipment or 
programs fail due to faulty workmanship or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge! ! 



Best Prices * Over 1000 Programs and 500 Accessories Available * Best Service 
* One Day Express Mail * Programming Knowledge * Technical Support 



Add $25.00 for shipping and handling!! 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery. 2 to 7 days for phone orders. 1 day express mail ! 
We accept Visa and MasterCard. We ship C.O.D. to continental 
U.S. addresses only. Add $10 more if C.O.D., odd $25 if Air Mail. 



COMPUTER DIRECT 

We Love Our Customers 
22292 N. Pepper Rd., Barrington, III. 60010 

312/382-5050 to order 
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The Price War Is Over 

We Will Beat Any Price 
Anywhere 



Atkri ST 




Hardware 




Atari 1040ST 


..Call 


AUri B20ST RGB .... 


...Call 


Atari B20ST Mono . 


... Call 


Atari B20ST (CPU) .. 


Call 


Atari SF364 


... Call 


Atari SF3U 


.. Call 


Atari SM124 


... Call 


Atari SC1224 


.. Call 


ST Station 


.. Call 


Supra Hard Disk 


... Call 


Printers 




Panasonic 


Call 


Epflon 


.. Call 


Citiien 


Call 


Modems 




Avatei 1200 


. $89.00 


QMI 1200ST 


. $129.00 


HaysB 1200 


Call 


Atari XM301 


$37.95 


Supra/MPP lOOOE .. 


$37.60 


June 




Specials 




Avat«i 1200 




PR Conn./Amodsm . 


$149.00 


Atarinriter Plus 


$2496 


AvatM 1200 


$89.00 


Sikata SClOO 


$128.96 


Teknika MJ-lO 


$178.00 


T«knika MJ-22 


Call 




Avatex 1200 

$89^00 

Hayes Compatible/ 
Everyday Low Price! 



Atari ST 
Software 

Borrowed Tims $31.00 

Chat $13.00 

Final Word $79.00 

Haba Software Cheap 

Hacker $28.00 

H » D Base Call 

H* D Forth Call 

H t D Toolbox Call 

PC Intercomm $69 00 

Personal Diskit Call 

Sundot $22.00 

VIP Professional Call 

Silent Service $24.00 

Flilht Simulator Call 

Micro C Shell Call 

Mindshadow $31.00 

Print Master $24.96 

P M Art Gallery $19.96 

Easy Draw Call 

Graphic Artist Call 
Music Studio $37.60 

2Key Accounting $32.99 
Home Planetarium $19.76 

Joust $19.76 

CP/M Emulator $32.99 

Apple ][ Emulator Call 
IBM Emulator Call 

Meramaz C Call 

Metacomco Pascal .Call 

Lattice G Call 

GST C Call 

Andra Call 

UCSD Pascal Call 

Recent Spell Call 

Rejent Word $3600 

Reient Word II $36.00 

Refent Base Call 

VIP Lite Call 

Micro C Shell Call 

Rubber Stamp Call 

Mejafont II Call 

Meta 68000 Asm . . Call 

Brattacas Call 

Degas $24.96 

Personal Pascal $39 00 

ST Talk $13.00 

Typesetter ST $24.00 

Zoomracks $48.99 



Atari S-Bit 

Hardware 

Atari 130XE $116.00 

Atari 66XE Call 

Atari 1060 Call 

Indus GT $188.00 

Atari XCll Call 

Atari 1027 $98.00 

Accessories 

US Doubler $42 00 

Rambo XL $29.96 

R-Time Cart $43.00 

The Duplicator Call 

Indus Expander Call 

Bonus SS/DD 6.26 $6 99 

Bonus DS/DD 6.26 . $7.60 
Flip * File All Siies Call 

Paper 1000 Sheets $11 00 

Paper 2600 Sheets Call 

Maxell 3.6 $19.00 

Sony 3.6 $21.00 

Fuji 3.6 $19.00 

Interfaces 

P:R: Connection $&&.00 

Supra Microprint $29.00 

Supra 1160 $39 00 

Supra Micronet $149.00 

Supra Microstuffer ... $67.00 

U-Print $48.00 

Apeface Call 

Atari 860 Call 

ST Printer Cable $3.99 




Atari 130XE 

$115,00 

128K Of Memory! 



Atari S-Bit 
Software 

Aerojet $19.60 

Action! $42.00 

Basic XE $42.00 

Basic XL $33.96 

Battalion Command .. $24 96 
Battle of Antietam ... $32.00 

B/Graph $24.96 

Broadsides $24.96 

Computer Baseball $24.96 

Computer QB $24 96 

Conflict in Nam $19.00 

Crusade in Europe $24.96 

Silent Butler $19.99 

Gemstone Warrior $22.00 

War in Russia $48.00 

Dec In the Desert $24.96 

Kennedy Approach ... $19.60 

Solo Flight $19.60 

Learning Phone Call 

Syncalc 130XE $29.96 

Megafont 11+ $17.00 

Rubber Stamp $18.00 

Paperclip $36.99 

Mac/66 $42.00 

Print Shop $26.00 

Karateka $18.60 

Lode Runner $22.00 

Atariwriter Plus $24.96 

Panier Grenadier $34 00 

Hacker $19.60 

Space Shuttle $16.76 

Mindshadow $16.76 

Great Am Rd Rce . $16.76 

F-16 Strike Eagle $24.96 

Silent Serrice $19 60 

Gunship $19.60 

Synfile 130XE $29.96 

Page Designer $18.00 

Typesetter $21.00 

HomePak $31.00 

OSS Toolkits $17.99 

Printshop Lib. 1/2/3 . $16.96 

Chmp. Lode Run $18 60 

Ultima IV $39.00 

Sparta Dos CS $24.96 

Home File Manager . $7.99 

Music Painter $7.99 

Star Raiders $7.99 



Modula-2 Call lowest Price Anywhere! 

Personal Prolog Call 
Kings Quest II Call 

Black I^tch S^ms 



3i>aiL ifa^KtitA^ 



TO ORDER (Visa, MasterCard): Call TOLL FREE 1-800-ATARI-02 

For technical information, order inquiries, or for MD orders call 301-757-1329, or write 
Black Patch Systems, P.O. Box 501, Arnold, MD2I0I2 

niak Fr»« Poltoy: In-stock Items shipped within 24 hours of order. No deposit on C.O.D. orders. Free shipping on prepaid cash orders within the continental ij.S. Volume discounts 
available MD residents add sales tax, APO. FPO and international orders and $5.00 plus 3% tor priority mail service. Advertised prices show 4% discount for cash, add 4% for 
MasterCard or Visa, Personal checks require 4 weeks clearance before shipping. Ask atwut UPS Blue and Red lat>el shipping. All merchandise carried under manulacturer's 
warranty Free catalog with order. All items subject to change without notice, D»«t«r Inqulriw InvHad 
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HOME USE 





Home 
Shopper 



by Matthew J.W. Ratcliff 



Grocery shopping is drudgery. I hate going to 
the store, fighting the crowds, waiting in Hnes and 
spending a giUion dollars — only to realize while un- 
packing that I forgot my coffee! 

When making a shopping list, you usually perform 
a "data search" on your cupboards. It's all too easy 
to overlook items you're completely out of. Home 
Shopper is designed to help you make a perfect list 
every time. It's easily customized to fit your shop- 
ping habits and favorite grocery store, by changing 
data statements. 

This article provides the Home Shopper program 
and SHOPEDIT, a quick-and-dirty store database edi- 
tor. You must provide data from your favorite gro- 
cery store, so be prepared to take notes next time you 
shop. After your first big shopping trip with a Home 
Shopper list, you'll wonder how you ever got along 
without it! 

Let's go shopping. 
When run. Shopper will go through a short setup 






^ 



/ 



period. The program will then check the disk 
for an old list. If none is found, it will continue 
with the main menu. 

If a list is there, you're prompted to SELECT the 
old list or START a new one. Once an old list is load- 
ed, you can update it. 

The store database isn't included in Listing 1. The 
second listing will help you create and edit a STORE. 
DAT file, which can be merged with Shopper. 

The main menu. 

Next up is the control center of Home Shopper. 
You're presented with six selections. The current 
choice is highlighted in inverse. Pressing SELECT 
moves the highlighter down to the next line and it 
will wrap around to the top. 

You may use a joystick in port 1 to move the selec- 
tor either up or down. When the desired function is 
marked, press the START key or the fire button. 

IVlaice a compiete iist. 

When you go shopping here, the first store aisle 
will be displayed from your "grocer database" (more 
on the data later) . A mini menu is displayed at the 
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HOUSE- 
SPECIALS 



Tinisnop urapnics LiDranes 

I. nam 73.91 

I Home Accounlanl-Tax Advantage 

•Book 64.9S 

I Disk Nolchers 3.99 

I Allsop Disk Banks 

30-3'A"or60-5V<" 10.95 



ST SOFTWARE 



Raba Wills 24.9! 

Haba Writer 32.95 

lo-C 36.95 

PC intercom 74.95 

Chat 17.95 

VIP Professional 121.95 

Intocom Games 29.95 

Hex 29.95 

Express 29.95 

Degas 25.95 

SunDog 27.95 

Hippopatamus Software Call 



PAPER 



WHITE 20 LB 

2500 Shts. Laz. Edge 26.95 

1000 Shts. Laz. Edge 16.95 

500 Shts. In. Edge 11.95 

ASSORTED PASTELS 

2500 Shts. Laz. Edge 44.95 

100 Shts. Laz. Edge 26.95 

500 Shts. Laz. Edge 16.95 

Making Labels 1000 QTY 9.95 



DISKETTES 



^ONUS 5V4 avz 

SS/DD $9.50 - 

DS/DD 13.50 - 

PRECISION 

SS/DD $8.75 - 

OS/DO.. 11.75 - 

MAXELL 

m-\ $15.95 32.95 

M02 19.95 38.95 

MEMOREX 

SS/DD $12.50 29.95 

OS/DO 16.50 34.95 

FF30/20SS/DD. — 59.95 
FF50/20SS/DD. 36.95 - 
FF50/20DS/DD. 42.95 - 
All Diskettes Cariy a Liletlme Waranly 





STAR MICRONICS 



SG-10 210.95 

SG-15 369.00 

SD-10 321.95 

SD-15 441.00 

SR-10 469.00 

SR-15 582.00 

SB-10 565.00 

Powertype 299.95 

LEGEND 

808 154.95 

1080 205.95 

1380 259.95 

1385 295.00 

OKIDATA 

Qkimate 10 170.95 

Oklmate 20 210.00 

182 219.95 

192 349.95 

PANASONIC 

KX-P1080 209.00 

KX-P1091 231.95 

KX-P1092 369.00 

l«-P1592 Call 

KX-P1595 Call 

KX-P3131 259.95 

KX-P3151 425.00 

CITIZEN 

MSP10 259.00 

MSP15 439.00 

M$P20 439.00 

MSP25 549.00 

SEIKOSHA 

SP-1000 179.95 

EPSON 
Call for current pricing on all Epson 
models. 

PRINTER RIBBONS 
AND 
DUST COVERS AVAILABLE , 



MJ-10 189.95 

MJ-22 254.95 

ZENITH 

ZVM122 74.95 

ZVM123 74.95 

AMDEK 

300G 117.00 

300A 127.00 

310A 145.00 

Color 300 175.95 

Color 600 289.95 

Color 700 469.00 

Color 710 539.00 

ATARI 

Sl«124 174.95 

SC1224 335.95 

NEC 

1201 139.00 

1205 139.00 

1260 79.95 

SAKATA 

SC100 159.00 

THOMPSON 

CM365 289.95 

14" RGB Color Composite Amber S 
Green Switch 

CM366 189.95 

14" Color Composite 




XMP»I301 39 95 

MPP1000E 52.95 

MPP1200 199.95 

Volks12 175.95 

VolksSOO 59.95 

Hayes 300 137.00 

Hayes 1200 385.00 

Team Modem 199.00 

(100% Hayes Compatible) 

Micro Stutter 89.95 

U-Call 36.95 

CompuServe 17.95 



DAI ICniCO inbLUU£l 

Homepak 31.95 

Paperclip 36.95 

BRODERBUND 

Bank Street Writer 32.95 

Karateka 18.95 

Lode Runner 18.95 

Print Shop 27.95 

Print Shop Companion Call 

Graphics Libraries I, II, & III ea. 16.95 

CONTINthlTAL 

Tax Advantage 34.95 

Home Accountant 32.95 

MICROPROSE 

F-15 Strike Eagle 20.50 

Silent Service 20.50 

Kennedy Approach 20.50 

OSS 

MAC 65 48.95 

Action 48.95 

Basic XL 38.95 

Basic XE 48.95 

Tool Kits 18.95 

SUBLOGIC 

Flight Simulator II 31.95 

Jet Call 

Night Mission Pinball 20.50 

SYNAPSE 

Syntile 31.95 

Syncalc 31.95 




1050 149.95 

Happy 1050 299.95 

Happy Enhancer 139.95 

U.S. Ooublers 54.95 

DT Duplicator 149.95 

DT Ooubler 54.95 

Indus GT 198.00 

SF314 215.95 

SF354 169.95 

Haba 10 Meg Hard Call 




WHITE HOUSE 
COMPUTER 



P.O. Box 4025 
Williamsport, PA 17701 

"Where Prices are Bom, 
Not Raised." 



MttuiUhfitMl 



Ordering and Terms: 

Place orders Monday-Friday 9am-7pm. Customer service calls taken Monday-Friday 10 a, m, 
4pm, No deposit on C.O.D. orders. Free freight on all prepaid casti orders over $300 in the 
continental U.S.A. APO & FPO orders add $5 per hundred. Priority mail add $10 per hundred. All 
foreign orders add 8% for shipping, UPS shipping add $4 per hundred (East Coast) $5 per 
hundred (West Coast) PA residents add 6% sales tax. Free shipping tor PA residents. Orders by 
company and personal checks held 3 weeks. Defective products require prior return authoriza- 
tion. Defective products will he replaced or repaired according to warranty No used or recon- 
dlttoned producls sold. Prices and availability are subject to change without notice. 



ORDER TOLL FREE 
1-800-351-3442 

ALL CUSTOMER SERVICE CALLS 
AND PA RESIDENTS CALL 

1-717-322-7700 

VISA 4%, MASTER CARD 4%, AMERICAN EXPRESS 5% 
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top of the screen, and the joystick or SELECT will 
move the pointer. Pressing fire or the START key will 
mark an item by highlighting it. If already marked, 
then this will "unmark" it. 

The quantity is shown to the far right of the screen. 
Pressing a number 1 to 9 will mark and set that 
amount for the current item. Pressing C will toggle 
a coupon marker for the current item. When tagged, 
a C will appear next to the item's quantity. 

When the list is printed, *C* appears next to the 
items for which you've got coupons. This serves as 
a reminder to use these money savers. If you loaded 
an old list, or included weekly essentials (see below), 
those marked items will show up. 

When you've selected all the necessary items, press 
OPTION to go to the next aisle. Moving the joystick 
to the right is equivalent to hitting OPTION. Move 
the stick left to go back to the previous aisle. Shop- 
ping through the entire store with the OPTION key 
function, you'll be returned to the main menu after 
the last aisle. Pressing ESC returns you to the main 
menu. 

While "shopping," you may also make a special 
note by pressing RETURN. For example, you might 
select spices in the general cooking aisle. Press RE- 
TURN and make a note to yourself, like this: 
GET OREGANO AND CLOVES. 

One or two lines may be entered for each aisle. If 
a note's already there, you'll be reminded. You may 
enter a new one, or just press RETURN to keep the 
old note. This applies to both the first and second 
lines. Once you've made all the selections from this 
aisle, move on to the next with OPTION, or ESCape 
to the main menu. 

If you don't want to shop the entire store, select 
the "just browsing" function. You'll exit the main 
menu to a display of all the store's aisles, listed by 
topic (or content). Select the desired aisle in the nor- 
mal manner. 

Next, you'll be switched to the shopping display 
described above. Pressing OPTION will return you 
to the browse section. Press OPTION again at that 
screen to return to the main menu. 

We shop for some items, like bread and milk, ev- 
ery week. The "include weekly essentials" function 
will automatically mark all the items that you usual- 
ly need. 

It's very easy to change or add to this list, as we'll 
explain later. The essentials line will flash as items 
are read and marked. When all your usual purchases 
are in the list, the flashing will stop. 

Once yovir roster is complete, select the "print shop- 



ping list" function. The printout is arranged by aisles, 
laid out as they are in your market. This saves a Jot 
of time. 

Under each aisle heading appears a list of items 
you've selected from that aisle. There'll be a blank 
(to check things off while shopping) , followed by the 
quantity desired and the item name. If you'd entered 
any special notes for an aisle, they'll appear at the 
end of the aisle's item list. A brief shopping list is 
shown below. 

Aisle: PRODUCE 

Qty. 1 > Bananas 

flisle: TOILETRIES 

Qty. 4 > Batteries 

ME MEED 'C AND 'D* BATTERIES 
FOR NATHAN'S NEM TOYS. 
Aisle: COFFEE/SOUP 

Qty. 4 > Coffee 

Qty. 1 > Tea Bags 

Aisle: DETERGENTS/HOUSEHARES 

*C» Qty. 1 > Dishwashing Liquid 

DON'T FORGET THAT NEN BRAND 
THAT ME HAVE THE COUPON FOR! 
Aisle: FROZEN FOODS 

Qty. 4 > Pizza 

Qty. 4 > Bagels 

Qty. 1 > Ice Crean 

Aisle: BREAD/CEREALS 

Qty. 1 > Mheat Bread 

Qty. 4 > Sweet Rolls 

Aisle: BABY/PAPER NEEDS 

Qty. 1 > Diapers 

Aisle: MILK/EGGS/CRACKERS 

Qty. I > Milk 2J'. 

If you're updating for your big monthly shopping 
trip, you'll want the "save shopping list" option. The 
disk file is called SHOPLIST. It isn't a list like the 
one you get with the print function above, but a set 
of numbers and a string the program works with. 

When you're through, and have printed and saved 
your list, use the "quit" option. The BREAK key is 
disabled in this program, to prevent an accidental 
abort. 

The database. 

The Shopper requires a mini database in the data 
lines 8000-9524. Up to twenty-three different aisles 
may be defined, with as many as nineteen items in 
each. 

The aisle contents and item lists will appear in 
Lines 8000-8459. Each aisle topic must appear on a 
line which is a multiple of 20 (8000, 8020, 8040, and 
so on). 

The nineteen consecutive line numbers following 

each topic line may contain item data, one per line. 

If less than twenty-three aisles are used, then define 

a topic line, DATA END. Here's a sample data list: 

HoMe Shopper, Sanple DATAbase List 

8000 DATA DAIRY/POULTRY 

8001 DATA Milk 
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8002 DATA AMerican Cheese 

8003 DATA Butter 

8004 DATA Eggs 

8020 DATA DRINK5/JUNKF00D 

8021 DATA Coke 

8022 DATA 7-Up 

8023 DATA Pepsi 

8024 DATA Potato Chips 

8025 DATA Taco Chips 

8026 DATA Party Nutf 

8040 DATA BAKERY 

8041 DATA Nheat Bread 

8042 DATA Mhite Bread 

8043 DATA Bagels 

8044 DATA Sweet Rolls 

8060 DATA EHD 

8930 REM Meekly Essentials 

ead 

9000 DATA 8001 

9010 DATA 8041 



Milk S Br 



9500 REM Store Layout by aisle 

9501 DATA 8020 

9502 DATA 8040 

9503 DATA 8000 

9504 DATA -1 

The weekly essentials list appears in Lines 9000- 
9430. Each data item here is simply a line number 
in the 8000 range. It points to a particular item (not 
topic] that you need every week. For example: 
9000 DATA 8121 

where data line 8121 may indicate "milk." Set this 
data area up according to your shopping habits, with 
SHOPEDIT (Listing 2). 

Lines 9501-9523 describe the sequential layout of 
the store where you shop. Each data item is the line 
number of an aisle's topic. If fewer than twenty-three 
aisles are defined, put in a DATA -1 line to mark 
the end. 

This lets you arrange the data any way you wish. 
If the store should change some aisles, or if you start 
shopping at a different store, just rearrange the data 
line number sequence in Lines 9501-9523. 
Putting it together. 

Type and save Listings 1 and 2. Go to your favor- 
ite grocery store and make a list for your database. 
As you go through the store, write down each aisle 
and all the items you might need from it. Number 
the topics of the aisles in the order in which you'll 
be shopping. 

Some aisles may have more than nineteen items 
you'll need often, but most stores don't have twenty- 
three aisles, either. You can break up the larger aisles 
into parts A and B in the data. 

Some aisles will have items too numerous to list 
individually — like the cooking section, where all the 



spices are. For this section, just list "DATA Spices" 
and use Shopper's "note" feature to be more specific. 

Once you get home with your store data list, run 
SHOPEDIT. It will check for a file called STORE.DAT. 
If not found, you'll be prompted to create a new one. 
Once created, it will be merged wjth SHOPEDIT. 

Next, all the aisle topics are listed to the screen. 
Press the aisle's letter key to edit. Data lines for that 
aisle's topic and item list are LISTed to the screen, 
CONT is printed, and the program stops. 

Use the control arrow and editing keys to change 
these data lines. Press RETURN on the lines you 
change. Don't enter empty data lines, however. When 
your aisle is complete, position the cursor on the 
CONT line and press RETURN. 

The aisle topic menu is displayed again. When the 
database is complete, press Z to exit. Follow the fi- 
nal instructions to merge your new data with the 
Home Shopper. 

If you wish to do a major update to this data later, 
use SHOPEDIT again. Load Shopper, then: 
LIST "D: STORE. DAT", 8000, 9999 

Now, nm SHOPEDIT to make the necessary 
changes. This won't change the essentials or the store 
sequence data areas. 

Enter your own essentials list beginning at Line 
9000. To change the order in which the store is print- 
ed, rearrange the number list in Lines 9501-9523. 

Using the USR routines. 

The data in Lines 2050-2460 defines two USR rou- 
tines for Shopper. You may find both are nice addi- 
tions to some of your own software. 

The USR that begins at location 1536 is my "high- 
lighter." It will toggle a line on the display between 
normal and inverse video. (The line should be all in- 
verse, or normal video, before the USR call — it can 
be confusing otherwise.] The call format is: 
A=USR (1536, LINE) 

The value of LINE may be from to 23. This USR 
routine will place a value in the calling variable (A 
above]. It will be if the line was just toggled off, 
1 if on (it goes by the first byte of the screen line). 
This USR also disables the BREAK key each time it's 
called. 

The second USR routine creates a customized 
mode screen with a Display List Interrupt (DLI). 
It places a blank scan line, with the DLI bit set, after 
the screen line you specify. It will also set a differ- 
ent color for the lower screen area. This allows a two- 
color mode display, separating menu and work 
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areas nicely. It should be called like this: 

GRAPHICS e:POKE 7ie,C0LRl 
: A=U5R C162e , LINE , C0LR21 

Always execute a GRAPHICS command just be- 
fore this USR call. It won't work with any other mode. 
The value of LINE should be from to 22. Unpredict- 
able things can happen if it's greater than 22. 

COLRl sets the color of the display above the DLI; 
COLR2 sets it below. Once the DLI is set, you may 
wish to change the lower screen area's color. The fol- 
lowing will do the trick: 

POKE 711,NEHC0LR2 

Checkout. 

I hope you find Home Shopper lets you spend more 
time computing and less time fighting crowds. I tried 
to make it friendly enough for even the noncomputer 
types in your household. This is a real "home" ap- 
plication that gets a lot of use around my house. My 
wife Nancy always uses it before going for groceries 
— and she seldom used a computer before Shopper 
came along. H 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



Listing 1. 
BASIC listing. 

JD 10 REN The HoMe Shopper - By H. Rate I i 

KL 2e REN a custoMizable, easy to use 

RP 36 REN weekly/Monthly grocery shopping 

FX 4e REN guide. Up to 23 Isles, 19 IteH 

s per isle Hax. 
ZO 58 DIN SHOP 14601, INSTRSC1928I, AISLES t4 

OJ , ITENS €40} , BLS (401 
CR 60 GRAPHICS 0:? "The HOMe Shopper, Set 

up.. ." 
LV 70 IIISTRS(lJ="C":IHSTR$tl920>="C":IHST 

R$IZ)=INSTR$:BLSC1)= BLSC40>=" ":BL 

SC2I=BL$ 
NI 80 FOR 1=1 TO 460 : SHOP CI) =0: NEXT I 
OK 90 CLOSE ttl:OPEN ttl,4,0,"K:" 
VS 100 C0NS0L=53279:CH=764:P0KE 82,0:P0KE 

83,39 :REN NARGINS 
as 110 START=6:SELECT=5:0PTI0N=3:UPSEL=8: 

BAK0PT=9 
QJ 120 RESTORE 2050:1=1538 
RX 130 READ A:IF A<0 THEN ISO 
KX 140 POKE I, A: 1=1+1 : GOTO 130 
ZV 150 CLOSE tt2:TRAP 250 
PN 160 OPEN tt2,4,0,"D:SH0PLIST":A=USRI153 

6,01 ;SLIN=2:C0LR=144:G0SUB 1950:G0SUB 

2030:? 

UB 170 ? :? "DSmail-Load Old Shopping L 

ist" 

CE 180 ? :? "liiMMU -Hork on a new List" 

YE 190 GOSUB 1960 

AT 200 IF A=START THEN LIS=0:GOTO 250 

PA 210 IF AOSELECT THEN 190 

FB 220 TRAP 250:P0SITI0N 6,8:? " .... 

Loading ":LIS=1 
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Now you can^^^ 

^ HO^^ with the new 
Magna 256K RAM-Board 

• Enhanced memory capabilities 

• Simple plug-in installation 

• 100% Axlon® compatibility 

• 288K available with Synfile-H™/Syncalc™ 

• Up to 1 million bytes on a single board 

• Up to 8000 sectors available as a Romdisk 

• Perfect for B.B.S.'s 

• MYDOS™ Ramdisk software included 

RAMCHARGER 256K $149.95 

RAMCHARGER 512 K $199.95 

RAMCHARGER IMEG $299.95 



Magna 
Systems 

"We build power." 
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Terms: Check, Money Order. COD 

Add $4.50 shipping & handling. 

New York Residents add 8'/. % sales tox. 

MAIL TO: 

MAGNA SYSTEMS 

147-05 Sanford Awe. Suite 4E 

Flushing. N.Y. 1135S 

Phone: 718-939-0084 



CAL COM INC. 



P.O. Box 2601 

Silver Spring, MD 20902 

(301) 681-9121 



6820 Orongethorpe, Suite A 

Buena Parte, CA 90620 

(714) 523-5353 



HARDWARE 



520ST (S12K Memory) Monochrome Package $698.9$ 

520ST (S12K Memory) RGB Color $949.95 

S20ST 1024K Memory Upgrade (Includes Ramdisk Software) $200.00 

520ST ROMS $ 25.00 SF314 Double Sided Drive . . $239.95 

^tari 130XE $135.00 Atari XM301 Modem $ 39.95 

Omniview XE/XL $ 49.95 Omniview lor 256K-800XI $ 49.95 

130XE With Omniview XE/XL Installed (with dual operating system) $199.95 

Newell 2S6K Upgrade for the 800XL (Includes Mydos 4.1) $ 79.95 

Newell 256K Sector Copier (800XLyi30XE) $ 17.95 

Ramrod XUXE (includes Omnimon) $ 65.00 

Happy 810/1050 Enhancements $135.00 

1050 Duplicator (The Ultimate Disk Backup!) $135.00 

Happy 1050 Disk Drive (1050 Happy Enhancement Installed) $299.95 

ICD P:R: Connection Interface Module $ 65.00 

ICD R-Time 8 Cartridge $ 56.00 

ICD Ooubler with Sparta DOS Construction Set! $ 45.00 

ICO US Doubler Installed in New 1050 Disk Drive) $199.95 

Atari 850 Interface (In Stock) $109.95 

Supra Microprint Printer Interface $ 39.95 

Supra 11 50 Printer Interface $ 54.95 

Volksmodem 12 (300/12001) Includes ST or 850 Cable $199.95 

Star Gemini 10X Printer (520ST or 8 Bit Compatible) $189.95 

Star SG-10 Printer (S20ST or 8 Bit Compatible) $249.95 

520 ST SOFTWARE 

ST-Copy (Fastest copy program available) Backs up all Atari S20ST 

Software to date! Dealer inquiries welcomed $ 34.95 

FoReM ST (BBS Program for the ST!) $ 89.95 

ST-Term (Version 1.1) $ 34.95 

Zoomracks $ 64.95 

PASCAL by OSS $ 59.95 

Sundog $ 29.95 

Bratacas $ 34.95 

Compulsive Copier (Dealer inquiries welcomed) $ 34.95 

800/XL/XE SOFTWARE 

Basic XE $ 49.95 Basic XL $ 39.95 

FoReM XE (Version 1.2A) . $ 50.00 Action/ MAC/65 Canridges . . $ 49.95 

CUSTOM BBS PACKAGES AVAILABLE UPON REQUEST, CALL FOR INFOI 

VISA/MC accepted (add 4%), or send a cashiers checl(, iTioney order, or call and order COD. Please 

add $5.00 per order for shipping and handling. Sales Tax: CA add 6% — MD add 5%. 

CALL THE CAL COM BBS (24 HOUR 300/1200 BAUD): (301) 681-8933 

CIRCLE #141 ON READER SERVICE CARD 
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TF 230 INPUT tt2,ITEM,C0UNT:IF ITEH>e THEN 

5H0PfITEM)=C0UNT:G0T0 238 
XZ 240 FOR 1=0 TO 47:INPUT tt2,ITEHS:IN5TR 

S f I»40tl , I«40t401 rITEHS : A=USR C1536 , 81 : 

NEXT I 
NK 250 GOSUB 2010 :REH LEGGO 
AR 260 REM MAIN MENU HERE 
YN 270 CL03E 112 :5LIN=4:C0LR=81 :G03UB 1950 

:G03UB 2030 
UJ 280 ? '• Fire=rSTART3" 

IM 285 ? ■■ Joystick: ";CHRSC27J ;"t";CHR 

SI27J;"*";" = select '■;CHRSC271;"t";C 

HRS C27> ; "4 = o ptio n" .„^.^ 

290 ? " OaOdBDO-Menu Function IEEE 

(300-60" : POKE 82,6:? :V=5 
XP 300 ? "Make CoHpiete Shopping List" 
? "Just Browse through Aisles" 
? "include Meekly Essentials" 
? "Print Shopping List" 
? "Save Shopping List" 
? "Ouit the HoMe Shopper" 
XH 360 POKE 82,0:? 
NP 370 POSITION 0, Y: A=USRC1536, V) 
SE 380 GOSUB 1960 :IF A=START THEN 480 
EN 390 B=USRC1S36,Y) 
HH 400 IF A=UPSEL THEN Y=V-1 
5X 410 IF Y<5 THEN Y=10 
CR 420 IF A=SELECT THEN Y=Y*1:IF Y>10 THE 

N Y=5 
RP 430~G0SUB 2010 

TG 440 IF PEEKfC0NS0LI<>7 THEN 430 
PM 450 GOTO 370 
ME 460 I=Y-4:BR0HSE=0:AISLE=l:0N I GOTO 6 

80,480,1340,1450,1720,1900 



VK 



LV 310 
AC 320 
MZ 330 
HU 340 
HH 350 



QB 470 GOTO 380 

VG 480 C0L R=144:SL IN=0: GO SUB 195 

FM 490 ? "OBOiail-Aisie lainiEB-GO UiLUJ 

BGH-MENU" 
MR 500 FOR 1=0 TO 29 
UQ 510 LINE=8000+20KI 
SC 520 RESTORE LINE: READ AISLE$ 
MR 530 IF AISLES="END" THEN MAX=I;GOTO 56 


GX 540 ? " "; AISLES 
GF 550 NEXT I 

SM 560 Y=AISLE:A=USRC1S36,Y) 
YE 570 GOSUB 1960 
OA 580 IF A=0PTI0N THEN 250 
LK 590 IF AOSTART THEN 610 
OC 600 BR0HSE=l:AISLE=Y:LINE=8000^20»fAIS 

LE-lJ:SHP=tAISLE-l>»19:G0T0 690 
RM 610 IF NOT A THEN 570 
EC 620 B=USR(1S36,Y) 
BP 638 IF A=UPSEL THEN Y=Y-1:IF Y<1 THEN 

Y=MAX 
MH 640 IF A=SELECT THEN Y=Y«1:IF Y>MAX TH 

EN Y=l 
ED 650 A=USR 11536, V) 
RX 660 GOSUB 2010 
QM 670 GOTO 570 

DS 680 AISLE=l:LINE=8000:SHP=CAISLE-l)«19 
SC 690 SLIN=3:C0LR=4: GOSUB 1950 
KV 700 RE M MINI ME NU 

LE 710 ? "OBlOail-Next itew BSJEEHl-liH/H 

ark Iten" 
ZH 720 ? "OnailJED-Next AisleHmmXEl-Mak 

e Note" 
OH 730 ? "UBslMJU-Set Oty. HSQEQll-Mai 

n Menu" 



FOR ATARI*400/800/1200/130XE/800XL^ 



^^MIL BOSS 



For ATARI 800XL, 130XE 
Replacement operating system to run the 
vast majority of all ATARI software. No 
translator or disk to load! 
Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 
One touch access to extra RAM, all RAM. 
One touch BASIC on. 

INCLUDES DUAL OPERATING SYSTEM 
BOARD AND MacroMon XL which is an 
excellent, unique monitor for beginner 
and pro alike— written especially for the 
BOSS. $69.95 for 800XL/130XE. $79.95 
for 1200XL (Socket Instl.: 130XE $20.00) 



UCROUJIVRE 



^1 len 

fi a c n o wd n e- 



PFinTMIZ^ 



diskwiz-ll 



Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 
Repair or -change of linked DOS2 or 
OSA-l-2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29.95 16K Disk. 



Send s.a.s.e. for update info. 



•TERMS: 



An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKIDATA, OKIMATE, 160L, 
KXP-1090, DMP-80, ISD 480, 
SEIKO/AXIOM GP550A. 
Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Works with or without BASIC, 
ED/ASM, PILOT, LOGO. Calendar 
generator. Horizontal format allows 
text to be continued in same direction. 
Change widths, height, center and 
much more from the keyboard or your 
program. Special handlers for PAINT, 
Micro-Illustrator, LOGO, Micro- 
painter, etc. Includes LISTER program 
for inverted and special characters plus 
demos and ideas. $29.95* 16K Disk- 
All Interfaces. 

P.O. BOX 2205/REDONDO BEACH, CA 90278 
(213) 376-4105 



U.S. funds; check or MO. 
add $2.50 shipping/handl- 
ing add 6% CA - 6.5% LA 
COUNTY add $3.00 for 
COD. No charge cards ac- 
cepted add $2.50 foreign 
orders normally out within 
48 hours. 



CIRCLE #112 ON READER SERVICE CARD 



Trademark of Atari, tnc. 



CIRCLE #148 ON READER SERVICE CARD 



PAGE 92 / JUNE 1986 



ANALOG COMPUTING 



XQ 748 RESTORE LINE: READ OXSLE$:IF AISLES 

="EMD" THEM GOTO 270: REN EXIT 
VI 750 ? "Aisle: ";AISLES:a=USRC1536,3}:F 

OR 1=1 TO 19 
XU 760 READ ITEMS :DATLIN=PEEKC183)42S6KPE 

EKtl84} 
RF 770 IF DATLIN>=LINEt20 THEM NAX=I-1:G0 

TO 810 
UH 780 POSITION 0.1+3:? " ■■;ITEHS; :B=SH 

OPCSHPtI):IF BMO THEM B=B-10: POSITION 
36 1+3 : ? "C" " 
FQ 730'lF B'tHEn'pOSITION 34,1+3:? B; :POS 

ITION 0,0:? :A=USRC1536,I+3} 
ON 800 NEXT I:MAX=19 
DI 810 POSITION 0,23;? " 'C = 

coupon Marker "; 
LI 820 Y=4: POSITION 0,4: IF SHOP tSHP+Y-3J 

THEN ? "B^":GOTO 840 
TI 830 ? ■■==>" 
AT 840 POSITION 0,Y:IF SHOP C5HP+Y-3J THEN 

? "5BQ":G0T0 860 
TH 850 ? ■'==:>" 
YF 860 GOSUB 1360 

GD 870 IF PEEK(CHJ<>255 THEN 1088 
PT 880 IF AOSTART THEN 930 
IT 890 A=USRfl536,Y) :SH0PCSHP+Y-3)=A:P0SI 

TION 34, Y:? " "; 
US 900 IF A THEN POSITION 34, Y;? "(■i";:L 

IS=LIS+1 
PA 910 IF NOT A THEN L1S=LIS-1:IF LIS<8 

THEN LIS=0 
MY 920 GOTO 1070 
GN 930 IF AOOPTION THEN 960 
EN 940 IF BROWSE THEN 480 
QL 950 AISLE=AISLE+l:LINE=LINE+2e:SHP=CAI 

SLE-1JK19:G0T0 690 
HR 960 IF AOBAKOPT THEN 1010 
ET 970 IF BROHSE THEN 488 
VD 980 AISLE=AISLE-l:LINE=LINE-20:SHP=CAI 

SLE-1J«19 
UV 990 IF LINE<8000 THEN 950 
SZ 1000 GOTO 690 
au 1010 IF A<>SELECT AND AOUPSEL THEN 18 

70 
PY 1020 POSITION 0,Y:? " "'.If SHOPtSHP+ 

Y-3> THEN POSITION 0,Y:? "■■" 
UM <ie3e IF A=5ELECT THEN Y=Y+1:IF Y>HAX+3 

THEN Y=4 
RQ 1040 IF A=UPSEL THEN Y=Y-1:IF Y<4 THEN 

Y=MAX+3 
GP 1858 POSITION 8,Y:IF SH0PCSHP+Y-3> THE 

N ? "Bffl":GOTO 1070 
PM 1868 ? ■■==>■■ 
YE 1878 GOSUB 2010 
DA 1880 IF PEEK(CH}=255 THEN 840 
EH 1890 REM PROCESS KEYS 
DM 1108 GET ttl,A:IF A0155 THEN 1210 
HB 1110 SLIN=3:C0LR=8: GOSUB 1950:? " 

«NOTE«":? "Type your special note 

.":A=USRtl536,e}:P0KE 752,0 
VU 1128 ? "This AISLE is: ":? AISLES:? "T 

ype and press [RETURN] .":A=USRfl536, 31 
QS 1130 ? "Two lines al lowed. ":A=80«(AISL 

E-11+1 
DB 1140 IF IN5TRS(A,A)<>"C" THEN ? "Cnill! 
B":? INSTRSCA.A+39J; om^mm^ 

'*'" USaj^ INSTRSCA+40,A+40J<>"C" THEN ? 

"CniEBH":? INSTRSCA+40,A+79J; 
FQ 1160 ? "[RETURN] only = no Change":? " 

NOTEl: ";:GOSUB 1180 
VQ 1170 A=A+40:? "N0TE2: ";:GOSUB 1180:G0 

TO 690 
TR 1180 INPUT ITEMS: IF ITEMS="" THEN RETU 

EU 1190 INSTRSCA,A+39)=BLS 

QJ 1200 INSTRSCA,A+LENCITEMS)-1)=ITEHS:RE 

TURN 
EZ 1210 IF A=27 THEN 278 
MG 1220 IF A<49 OR A>57 THEN 1278 
ZG 1230 IF NOT SH0PCSHP+Y-3J THEN B=USRC 

1536, YJ 



ML 1240 B=INTfSH0PCSHP+Y-3J/10J«10:SH0PCS 

HP+Y-3>=A-48+B:REM SET OTY, KEEP COUPO 

N FLAG 
XQ 1250 POSITION 34, Y:? CHRSf A+1281 ; :IF S 

HOPCSHP+Y-3J>10 THEN ? "IS"; : GOTO 840 
XY 1260 FOR 1=1 TO 2;? CHRS C32+128MCSH0PC 

SHP+Y-3}>0]);:NEXT I:GOTO 840 
VJ 1270 IF A<>67 THEN 1070 
MQ 1280 IF NOT SH0PCSHP+Y-3> THEM 5H0PCS 

HP+Y-3)=ll:A=USRtl536,Y) :A=49:G0T0 125 


BG 1290 A=SH0PC5HP+Y-3> :IF A>18 THEN SHOP 

CSHP+Y-3J=A-10:A=A+38:G0T0 1250 
XG 1300 SHOP CSHP+Y-3}=A+10:A=A+48: GOTO 12 

58 
LE 1318 REM Autonatical ly Mark IteHS in 
MH 1328 REM in weekly essentials list sta 

rting 
UX 1338 REM at line 9000. 
EF 1340 RESTORE 90e0:P0SITI0N 5,22:? "** 

Marking Meekly iteHs i«(":Lls=l 
ME 1350 A=USRC1536,Y) :REM SHOM ME'RE BUSY 
HT 1360 READ ESLIN 

ET 1370 A=ESLIN-8000:AISLE=INTCA/20)«19 
RF 1380 ITEM=A-20«INT f A/20] : SHOP CAISLE+IT 

EMJ=1 
FP 1390 DATLIN=PEEKC183]+256MPEEKfl84) 
UU 1400 IF DATLIN>9499 THEN 1430 
JA 1410 FOR H=15 TO STEP -5:S0UND 8,120 

10 M:NEXT M 
XO 1420 SOUND 0,0,0,0:GOTO 1350 
QQ 1430 A=USRtl536,y) :IF A=0 THEN A=USR(1 

536, YJ 
HM 1440 POSITION 5,22:? " 
":GOTO 380 

YQ 1450 IF LIS THEN 1480 

MQ 1460 POSITION 5,22:? "J«f NO [IB] YET * 

«":GOSUB 2010:POSITION 5,22 
TH 1470 GOSUB I960:? " ": 

GOTO 380 
HF 1480 SLIN=l:C0LR=225:G0SUB 1950 
MD 1490 ? " ** Shopping List Printout 

»»":A=USRC1536,0J 
RK 1508 ? :? "Be sure PRINTER is ready an 

d [RETURN]" 
SM 1510 ? "CPress 'A' & [RETURN] to abort 

1";; INPUT ITEMS: IF ITEMS="A" THEN 278 
ZJ 1528 TRAP 178e:P0SITI0N 10,6;? " Mo 

rking. . . ." 
HI 1530 OPEN tt2,8,0,"P:":LINE=9501:REH St 

ore Layout 
XD 1540 RESTORE LINE:READ ILIN:IF ILIN<8 

THEN 1680 
FX 1550 RESTORE ILIN:READ AISLES :B=USR CIS 

36,61 
UF 1560 IF AISLES="END" THEN 1680 
BB 1570 BR0MSE=0:AISLE=l+INTCCILIN-8800)/ 

20) 
KP 1580 FOR J=l TO 19 

ZK 1590 A=SH0PC19*CAISLE-1)+J):READ ITEMS 
lA 1600 IF NOT A THEN 1658 
TP 1618 IF NOT BROMSE THEN BR0MSE=1:? 112 

;"Aisle: ";AISLES 
VX 1620 IF A>18 THEN ? 112;" KC«";:A=A-18 

:G0TO 1640 
DA 1630 ? tt2;" "; 

YP 1648 ? tJ2;" Qty. ";A;" > "; ITEMS 

TR 1658 NEXT J: A=8eNCAISLE-l) +1 :IF INSTRS 

tA,A)<>"C" THEN ? tt2:INSTRS(A,A+39) 
CM 1668 IF INSTRS CA+48,A+48)<>"C" THEN ? 

112; INSTRS CA+48,A+79} 
OS 1670 LINE=LINE+l:IF LINE<9524 THEN 154 


BJ 1680 ? 112:? tt2;? U2 
BR 1690 CLOSE n2:G0T0 270 
DD 1700 ? :? "iHH( PRINTER ERROR «»( It "JP 

EEK(195) 
GS 1710 ? "Press [RETURN] to continue ";: 

INPUT ITEMS: GOTO 1690 
DO 1720 SLIN=1:C0LR=98: GOSUB 1950: GOSUB 2 

030:? :? "Save Shopping List ....":? : 
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mil Home Shopper 



continued 



NL 1739 ? "ftre You Sure CV/Nl ? ";:GET 111 

fA 
ZM 1748 IF CHR$tflJ<>"Y" THEH GOTO 278 
UB 1758 ? :? "Be sure DI5K is ready," 
B5 1768 ? "and press [RETURN] key to cont 

inue ?" 
511 1778 GET 111, ft!? 

YE 1788 POSITION 18,9:? " Working " 

TO 1798 TRftP 1870 

flF 1880 CLOSE lt2:0PEN II2,8,0,"0 :SHOPLIST" 

:BRONSE=e 
SP 1810 FOR 1=1 TO 460 
HP 1828 IF SHOPfIJ=0 THEN 1840 
ZZ 1830 ? lt2;I;",";SH0PtI):BR0HSE=l:B=USR 

fl536,9} 
XE 1840 NEXT I:? 112; "-1,-1" 
TY 1858 IF BR0MSE=0 THEH ? "**» NO LIST H 

ERE mm" 
VH 1860 FOR 1=8 TO 47:ft=40»I:? tt2;INSTR5C 

atl,A«40J:A=USRfl536,9I:NEXT I:CL0SE 11 

2:G0T0 278 
PG 1878 TRAP 40000 
GS 1880 ? ••** DISK ERROR »» II "; PEEK 1195 

} 
MM 1898 ? :? "Press [RETURN! to continue 

";:INPUT ITEN$:G0T0 1868 
LY 1908 5LIN=l:C0LR=178!G0SUB 1950 
ID 1910 GOSUB 2030 :A=USR 11536, 8) 
AB 1920 ? :? "Ouit NOW CY/NJ ? "; 
VB 1930 GET m,fl:IF CHRS<A1<>"Y" THEN 270 
BN 1940 GRAPHICS 0:POKE 82,2:? :END 
QH 1958 GRAPHICS 0: A=USR(1620,SLIN,C0LR) : 

POKE 718,66:P0KE 752,1:P0KE 7e2,64:P0K 

E 694,0:RETURN 
VJ 1960 A=PEEKCCOHSOL>!lF A<>7 OR PEEKCCH 

}<>25S THEN RETURN 
RP 1970 SK=STICKC0>:A=SELECT»fSK=13J+UPSE 

L«<5K=14>*START*CSTRIGt0J=0J+0PTI0N»C5 

K=7I+BAK0PT«CSK=11J 
EG 1988 IF A=0 THEN 1960 
BS 1990 RETURN 
KH 2808 FOR H=15 TO STEP -1:S0UND 8,188 

,10,N:NEXT HrSOUND 0,0,8,0:RETURN 
OL 2810 POKE CH,255:F0R M=15 TO STEP -1 

:S0UND 8,45,18,H:NEXT HtSOUND 0,8,0,0: 

IF PEEKfC0NS0L)<>7 THEN 2010 
AG 2020 RETURN 
BC 2838 ? " K The Hone Shopper, By HatxRa 

t K"; RETURN 
A J 2848 REM ML USR ROUTINE DATA 
NZ 2850 DATA 104,248,10,201,1 
XW 2868 DATA 240,7,170,184,104 
PR 2070 DATA 202,208,251,96,165 
UP 2888 DATA 88,133,214,165,89 
AG 2890 DATA 133,215,104,104,240 
LJ 2108 DATA 15,168,24,169,48 
UC 2110 DATA 101,214,144,2,230 
KE 2120 DATA 215.133,214,136,208 
DO 2130 DATA 242,160,0,177,214 
PJ 2140 DATA 48,6,169,1,133 
HL 2158 DATA 212,208,4,169,0 
ZR 2160 DATA 133,212,132,213,132 
PF 2170 DATA 77,160,39,177,214 
LD 2188 DATA 73,128,145,214,136 
LN 2198 DATA 16,247,165,16,16 
HG 2208 DATA 7,41,127,133,16 
BK 2218 DATA 141,14,218,96,104 
OR 2220 DATA 240,10,201,2,248 
VL 2230 DATA 7,170,184,104.262 
FY 2248 DATA 208,251,96,104,104 
KO 2250 DATA 168,104,184,141,175 
OV 2260 DATA 6,162,23,169,2 
GB 2270 DATA 157,182.6,202,16 
TE 2280 DATA 250,169,128,153,182 
JS 2290 DATA 6,165,28,197,20 
MQ 2300 DATA 240,252,169,163,141 
RR 2310 DATA 0,2,169,6,141 
JS 2320 DATA 1,2,169,192,141 
JU 2330 DATA 14,212,165,88,141 
OJ 2340 DATA 180,6,165,89,141 
NU 2358 DATA 181,6,169,176,141 
QM 2360 DATA 48,2,169,6,141 
HL 2378 DATA 49,2,96,72,173 



YI 2388 DATA 175,6,141,10,212 

EX 2390 DATA 141,24,208,184,64 

YL 2400 DATA 0,112,112,112,66 

YX 2410 DATA 0,0,2,2,2 

AH 2420 DATA 2,2,2,2,2 

AZ 2430 DATA 2,2,2,2,2 

BC 2440 DATA 2,2,2,2,2 

BF 2450 DATA 2,2,2,2,2 

QC 2460 DATA 2,65,176,6,-1 



Listing 2. 
BASIC listing. 



UH 18 DIM A$(40),AISLES[40),T0PIC$C4e):CL 

OSE II2:0PEN tt2,4,e,"K:" 
QB 28 GRAPHICS 0:? "Shopper Mini-Editor" 
KS 38 ? :? "Put Shopper DISK in drive 111" 
OJ 48 ? "and press [RETURN! "::INPUT A$ 
EG 58 TRAP 78:? :? :? :? "GOTO 228"!? "tt 

t";:POKE 764,12 
CA 60 ENTER "D: STORE. DAT"! GOTO 220 
DV 70 POKE 764,255:? "ifNO STORE data file 

.":? "Create a new one CY/N) ";!INPUT 

A$ 
DA 88 IF A$<>"Y" THEN 20 
LV 90 TRAP 210:CL0SE lll:OPEN lll,8,e,"D:ST 

ORE. DAT" 
AZ 188 FOR 1=8800 TO 8448 STEP 28 
DH 110 ? tll;l;" DATA END" 
FV 120 NEXT I 
GB 130 ? ttl;"899e REM Heekly Essentials L 

ist by Line Nunber" 
FH 140 ? Hi; "9000 DATA 8001" 
PN 150 ? ltl;"9See REM Aisle Print Sequent 

e topic lines list" 
AB 160 J=8000:F0R 1=9501 TO 9523 
OV 170 ? lll;l;" DATA ";J:J=J*20 
GH 180 NEXT I 

QU 190 ? tll;"9524 DATA -1" 
DZ 280 CLOSE ni:? "DUHMy STORE.DAT file C 

oHplete.":? "Press [RETURN! to continu 

e "; :INPUT AS:GOTO 20 
BR 210 CLOSE HI:? "FILE ERROR ";PEEKfl95) 

!? "DURING STORE.DAT HRITE."!END 
NX 220 GRAPHICS 0:? "Letter Of AISLE to e 

dit (Z exits) :":TRAP 26e:P0KE 752,1 
FJ 230 C=193:F0R 1=8800 TO 8440 STEP 20 
CB 240 RESTORE liREAD TOPICl:? CHRSfC);"B 

";TOPIC$; :C=C+l:IF K8440 THEN ? 
CB 250 NEXT I:POSITION 0,0 
AD 260 POKE 702,64:P0KE 694,0:GET t}2,A:IF 

A=ASCC"Z") THEN 410:REM DONE IF Z 
YM 270 A=A-65:IF A<0 OR A>23 THEN 260 
YA 280 A=888e+AN2e 
NI 290 RESTORE A:GRAPHICS 8:LIST A!? "f"; 

:READ TOPICf 
HK 360 FOR 1=1 TO 19 
GU 310 READ A$:DATLIN=PEEKC183)«256NPEEKC 

184) 
DQ 320 IF DATLIN>=Al-20 THEN C=I:GOTO 370 
DH 330 LIST A+I:IF I<19 THEN ? "f"; 
GB 340 NEXT I 
HL 350 ? "CONT": STOP 
NA 360 GOTO 220 
EX 370 FOR J=C TO 19 
IJ 380 ? ft+J;" DATA " 
GU 390 NEXT J 
OG 480 GOTO 350 

RP 410 GRAPHICS 0:? "SAVE DATA NOH:" 
? "Get SHOPPER disk ready." 
? "Press [RETURN! to write" 
? "STORE.DAT file "; :IHPUT A$ 
FM 450 TRAP 210:LIST "D:STORE .DAT",8eeO,9 



UH 420 
BD 430 
LN 440 



999 

HE 460 ? "iSStore data file complete." 
AR 470 ? "Next, LOAD ";CHR$ (34) ;"D:SH0PPE 

R.BAS";CHR5(34) 

(continued on next page) 
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EU 480 ? "Then EHTER ";CHR$C34J ;"D:5T0RE. 

DAT";CHRSC34) 
KU 490 ? "ftnd then SflUE •■;CHR$C34>;"D:SH0 

PPER.BA5";CHR$(34) 
TZ 560 ? "To coNplete the STORE update." 
MT 510 ? :? "The HoMe Shopper, By MatKRat 

■ I 

DU 520 ? "Brought to you by ANALOG COMput 

ing." 
BA 530 TRAP 40000: END 



Listing 3. 
Assembly listing. 



HoiR* Shoppgr scrvvn Itnl 
lnv«rt»r UsR routina. 



• A-USR<t336,LINE) 



Hhvra LINE is *ny v«lid mcrmmn 
linVf d«p«nd«nt on th« graphics 
«od«. It is up to hs/shs hHo 
usss this utility to kssp track 
of lino liolts. 

Hill invsrt MSBIT of svsry byts 
on ths Itns. On oMit 
A-0 if 1st nSBIT off and 
A-1 if 1st nSBIT on 



« 

> 

« 
* 

SAvnsc 

ATRACT 

POKnSK 

IRQEN 

RTN 

ZHRK 



Dosignod to tsg/untsg scrssn 
linos of tsKt quick C ossy. 



88 
" 77 

16 

S377* 

«D4 
• SDd 
.ORB S0600 
.OPT OSJ 



t Scrson Ran ptr 
fAttract laods 
iDissbls Brsak 
I Mors too 
iRoturn Info H«r« 
iZ-psgs MOrk 



« Validats U8R call foraat 

( 

START PLA 

SCO ERR 

CMP ai 

BEO AOK 
TAX 
CLEAR PLA 
PLA 
DEX 

BNE CLEAR 
RTS 



I 1 paraa roqd 

tgot it? 

lYup! 

lNor Clsan houso 

■and rsturn 

■to BA8IC 



« 

• 6ood call 



isalt-bad call 
Sotup Scrssn Polntor 



LOA BAVnSC isatup Hork ptr 

STA ZWRK I to scroan 

LDA BAVnSC-t^l 

STA ZMRK«1 I RAH 



> Bat 8 


craon 


Llna 




PLA 








PLA 








BEO 


NOADD 


iLino Zaro 




TAV 




■add it up 


OFBET 


CLC 




llazy Multiply 




LOA 


• 40 






ADC 


ZWRK 






see 


SAVLO 






INC 


ZWRK»1 




8AVL0 


8TA 
OEY 


ZMRK 






BNE 


OFBET 


|40 bytas/lina 


NOADD 


LDY 


• 






LDA 


(ZWRK) 


Y iSonna bo on or 




BNI 


HILBZ 


|or off 




LDA 


• I 


1 Invarsa-on 




STA 


RTN 






BNE 


DOHI 




HILBZ 


LDA 


• 


t Invar so-off 




STA 


RTN 




OOHI 


STY 


RTN-^l 






STY 


ATRACT 


iRasat Atract 




LDY 


• 39 


I No*« Ravarsa 


INVERT 


LOA 


(ZHRK) 


Y 




EOR 


• «S0 


itha invarsa 




STA 


(ZWRK) 


Y 




DEY 








BPL 


INVERT 






LOA 


POKNSK 


iBraak 0n7 




BPL 


EXIT 


(No-good 




AND 


• •7F 






STA 


POKHSK 






STA 


IROEN 




EXIT 


RT8 




iHoaa Jivos 



• SETDLI - Sat nsH dtaplay list 

> and add DLL 

> A-UBR<SETOLI, LINE, COLOR) 
t Llna - acraan lina, 1-23. 

> Hhara BLANK acan llna Kith DLI 
t should ba placad. 

* Color - color valua for scraan 
f hua/intansi ty balow DLI acan 

« lina 



8DLBTL 


iH 


• 0230 


iDlist Adr hara 


HSYNC 


m 


• D40A 


iDLI Sync hdw loc 


NMIEN 


m 


• 040E 


lEna DLI hara 


JIFFY 


m 


S14 


l60hi tic 


C0LPF2 


m 


• D018 


IHDU COLOR RE6 


SETDLI 


PLA 








BEO 


SERROR 


(Bad Call 




CNP 


•2 






BEO 


8A0K 


1 6ood call 




TAX 




INO - CLEANUP 


SCLEAR 


PLA 
PLA 
DEX 








BNE 


SCLEAR 




SERROR 


RTS 




■BACK TO BA8 


SACK 


PLA 
PLA 
TAY 
PLA 
PLA 








STA 


BCOLR 


iBottoa color 




LDX 


• 23 


■All BOdo 




LDA 


•2 




D0DL6T 


STA 
DEX 


DLIST, X 






BPL 


D0DL8T 






LOA 


• 128 






STA 


DLIST, Y 


(Blank Scan lina 


• and DLI 








LDA 


JIFFY 




HOLD 


CNP 


JIFFY 






BEO 


HOLD 






LDA 


• < DODLI 






STA 


VDSLST 






LDA 


• >DODLI 






STA 


VDSL8T*1 






LOA 


• •CO 


1 INR ENA 




STA 


NMIEN 






LDA 


8AVH8C 






STA 


8DLIST 






LDA 


8AVMSC+1 






STA 


8DLIST+1 






LOA 


• <OLBT 






STA 


SOLSTL 






LDA 


• >DLST 






STA 


SDLSTL+l 






RTS 






t DODLI 


- Sat color f 


or 


t bottoa 


of scraan 




DODLI 


PHA 








LDA 


BCOLR 






STA 


HSYNC 






STA 


C0LPF2 


|Sot color 




PLA 








RTI 






BCOLR 


.BYTE 




DL8T 


.BYTE 112,112,112,46 


SDL 1ST 


.HORD 


■SAVMSC goaa hara 
2,2,2 


DLIST 


.BYTE 2,2,2, 




.BYTE 2,2,2, 


2>2,2 




.BYTE 2,2,2, 


2,2,2 




.BYTE 2,2,2, 
.BYTE 6S 


2.2,2 








.HORD DLST 






.END 





VDSLST 



•0200 1 Scraan Dlist Inr 



All New Games from England 
First Time Available in the USA 



Special Introduaory Prices 
Dealer Inquiries Invited 



ATARI 400/eOO/600XL/800XL/XE 4eK 

Disk Tiye 



Smash Hits #1 S great games Jet -Boot 

Jack /Ftrefleet roan Strikes Back/Captain 

StKkeys Gold/Hypf rblast 

Smash Hhs i»2 5 great games Jet -Boot 

Jack /Stranded/Diamonds/ Robin Hood/ 

Citadel Warrior 

Smash Hits iti 5 great games Jet-Boot 

Jack /Aif strike 2/Batty Builders'Sreath 

of the Dragon/ Neptune's Daughters 

Cofoisus Chess 3.0 

Hijack 

Chop Siiey 



SI69S SI49S 



SI695 SI49S 



SI695 SI495 



SI4 95 SM95 
SI79S SI495 
517 95 SI4 9S 



Order from: 

BIG BEN GAMES. LTD 
1 765 Maple Street, Suite 4 
Northfield. IL 60093 
(312)251-8668 



VfSA • MASTERCARD 
Add S2 00for 
Shippir>g S Handling 
Illinois residents 
add 7% tax 
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■a'tDODa [paoGa'Q'siD 

NITH PnWRfWS lliS; THE PRINT SmP! 

"TVPESETTER, especially t^tn coupled MJth 
RlffiBER STWF, is destined to becoHe one 
of the preMier flTffiJI graphic utilities" 

- fMRLOG CONFUTING 

''UltiHate in printer control" 

- RlflRI EXPLORER 

"Users Hitrmut artistic skill Hill be 
able to do rather sophisticated Mixing 
of draf^ics * various siies of typography" 

- RNTIC NRGflZIIC 

"TVPESETTER is a poNepful tool" 

- CUftfCNT NOTES 
Nashin^ton, DC RCE 



mmsm mm^ 



TVPESETTER 


RUBBER 


PRGE 


MEGAFOHT 11+ 


BV DORFMm & VOUNG 


STAMP 


DESIGNER 


BV DELLINGER & ROGNLIE 


MWl?Q§ffi 


BV VOtWG, (KKH^MRN, 
AND DELLINGER 


BV VOUNG I OORFMflN 


?M°18»?1S 


mm mm's 

> Over 708,080 pixels 


rayira 




REVISION 2.8 


resolution 






> Revised to use any 






> Easily creates 


8x8 fonts S to print 


> Create anu printed 
Material-labels, 


> Create i^ to F(NJR 


full -page lat^Hits 


PRINTNmE icons 


icons AT ONCE 


GRflPHICS t, TEXT 




cards, neHsletters, 






> Print progran lists. 


tHjsiness graphics 


> Modify Gr.8 or 7* 


> Use layouts in 


or text files froM 




screens & add text 


TVPESETTER (GREAT 


RHV Atari 005-type 


} use pictures FroM 


in 32 sizes and 


for tHo-colunn Hork 


Mord processor, 


other prograMS 


TKO resolutions 


for newsletters!) 


IH ANV TVPE5TVLE!! 


> Create clip-art and 


> Business /personal 
graphics for 
c isplay, or use in 


> 80-coluMn typestyle 


> Print pics S icons 


"staMp" anywtwre 


inducted 


in up to FOUR 5IZES! 








} nCLUOES 17 F0MT5! 


TVPESETTER 


> Use pix and fonts 
froH other Hare 


> FAST PRINT OPTION 


ST iffRSICSI: *39.95 


ST UERSION; $33.95 




ST UERSKW; $39.95 


RLL 8-BIT: *34.% 


RLL 8-BIT: $29.95 


ALL 8-BIT: t 29.95 


ALL 8-BIT: $24.95 



THE PRINTHRRE SERIES WORKS HITH: 

EPSON-PRNRSONIC-GEMINI-PROHRITER-SGie-LEGEND 

RND HLL COMPHTIBLE PRINTERS 
MRTCH FOR RNOTHER XLENT PRODUCT : THE MUSIC BOX 



24 mm _ 
OfaER ri¥M. 

(7033 
644-8881 



P.O. BOK 5228, »EPT. B 
Springfield, Ufi 22150 



RK) $2.88 PER ITEN 
FOR SHIPPING 



C.O.D.: Rdditional 
Ufl RES.: Add i-A tax 



created by Ira Bricknan Hith the PRINTNfffiE 5ERIE5 & Itfiite Liwi Software's GRAPHICS LIBRWIIES 

CIRCLE #150 ON READER SERVICE CARD 



APPLICATION 




Character Generator II 



Parts. 



by Bob Curtin 



Spell casters are the artillery in a dungeon. They're 
the heavy firepower, the intelligence gatherers, the 
healers and the special forces. The right spell, con- 
jured at the right time, can save a party of delvers 
from certain destruction. Of course, this class of char- 
acter is also the most difficult to play well. 

This final installment of the Dungeons & Dragons 
Character Generator II (DCG2) brings you spell pro- 
grams for each of the four classes of spell casters. 
Each group's enchantments are entirely unique, but 
they can all be broken up into two types, as far as 
the method each class will utilize to gain their own 
magic. 

The Druidic characters and the Clerics simply 
choose which spells they want. Once all are select- 
ed, they're dumped to the printer without fanfare. 

Magic-users and Illusionists, on the other hand, 
have a more complex process to endure. Each of these 
classes of character must pass a "chance to know" 
die roll before they may pick a particular spell. With- 
in the context of DCG2 , this is done for the player 
automatically, as each incantation is chosen. If a play- 
er passes the roll, the spell is marked in inverse text. 
It's not necessary to roll again to obtain further use 
of that spell. If the roll fails, though, the charm in 
question is removed from the list and may not be 
chosen. 

Using the program. 

Once you've typed in the listings and saved them 



to the disk containing the character generator and the 
equipment program, you need only run the charac- 
ter generator to use the spell program. If any of the 
classes of spell casters is chosen for a given charac- 
ter, the correct enchantment program will automati- 
cally be loaded and run. 

After a short initialization period, the program will 
display a list (in whole or in part) of the first-level 
spells, along with the number remaining to be cho- 
sen in that level. 

You may page up and down through the entire 
range of incantations by pressing the up or down ar- 
rows (the - or = keys). Spells may be chosen at any 
time and in any order. They'll be printed in the or- 
der chosen. 

As each is acquired, it's marked in inverse text, 
so that the player may refer back to what he's chosen 
as he decides on additional sorcery. When all the 
spells have been chosen, simply press the ESC (es- 
cape) key to print them on the character sheet. The 
program will print the selections and go on to the 
equipment program. 

Another feature included is the ability to add to 
or subtract from the number of incantations available 
in each level. Simply page to the desired level and 
press > to add a spell, or < to subtract one. 

One of the reasons I chose to include this feature 
(aside from the obvious — maximum flexibility) was 
that it allows the magic users to replace full-fledged 
spells with a number of "cantrips," as dictated in the 
AD&D rules outlined in Unearthed Arcana. 



ANALOG COMPUTING 



JUNE 1986 / PAGE 97 




Character Generator II continued 



Miscellaneous notes. 

Observant readers will note that the four listings 
here are similar. Indeed, they're much the same pro- 
gram, altered for each of the numbers and types of 
spells. I suggest that you type in the MAGIC program 
first (Listing 1), then modify that listing for each of 
the other three classes. It'll save you a lot of typing 
and cut down on mistakes. 

The program retains all modifications on the 
"chance to know" roll that are stated in the AD&D 
Players Handbook. I've provided no override on this 
modifier, but, if you wish to alter it, you can do so 
by changing the values assigned to the constant CTN 
in Lines 100 through 140 of the MAGIC program. 
Though I usually don't recommend tampering with 
AD&D rules, I understand that each Dungeon Mas- 
ter is in charge of his own dungeon and is, therefore, 
entitled to run it any way he desires. 

I hope you've found this series entertaining and 
useful. It was designed to provide our Dungeon Mas- 
ter readers with a tool that can help free them of some 
of the more laborious and time-consuming chores of 
DMing. This series, coupled with the D&D house- 
keeping program from issue 8, can make yovir life 
as a DM a whole lot easier — and, at the same time, 
make you look like a pro. fl 

Bob Curtin is a machinist who got into computing 
in 1982, when he bought an Atari 800. He uses it for 
writing, programming and telecommunications. He 
prefers the more cerebral computer games. 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



EH 



EQ 



GK 
JG 
HK 
IP 
ZU 
LX 

BN 
PC 



Listing 1. 
BASIC listing (save as "D.MAGIC'J. 



le DIH SPELLSCiee80l,A$C40J,SPSCie],LE 

VEL C9 , 18) , NANS f 30) , LNAM$ C165) , AT f 35 , 18 

), STORES 11880) 

28 CLOSE tt3:0PEN tt3,4f 0,"D:CHARACTR.DT 

A": INPUT tt3; char: INPUT tt3;NAN$: CLOSE It 

3:0PEN tt3,4,8,NAM$ 

30 FOR E=l TO 38: FOR J=l TO CHAR 

48 INPUT tt3,X:ATfE,J)=X 

58 NEXT J: NEXT E 

68 INPUT Its, LNANS: CLOSE 113 

78 N=AT C22 , 1) : L V=AT C8 , N) 

88 IN=ATC2,N):IF IN=9 THEN CTN=35:NIN= 

4:NAX=6 

98 FLAG=8:XX=1 

188 IF IN>9 THEN CTN=45:I1IN=5:HAX=7 

110 IF IN>12 THEN CTN=5S:NIN=6:NAX=9 



FP 120 IF IN>14 THEN CTN=65:NIN=7:HAX=11 
NZ 130 IF IN=17 THEN CTN=75:NIN=8:NAX=14 
VG 140 IF IN=18 THEN CTN=85:HIN=9:NAX=18 
UR 158 GRAPHICS 8:P0KE 752,1:P0KE 82,7:P0 

SITION 2,12:? "INITIALIZING, PLEASE HA 

IT . . •*' 
GI 160'CHD=PEEK(16):IF CHI»127 THEN CHi>=C 

HD-128:P0KE 16,CMD:P0KE 53774, CND 
CC 170 SPELL$=" ":SPELL$C18888)=SPELL$:SP 

ELLS (2) =SPELLS ; A=l : Z=19 
XI 188 STORES=" ":ST0RE$C18e0)=ST0RES:ST0 

RES C2) rSTORES : A=l : Z=19 

190 GOSUB 1150: RESTORE 768; GOTO 388 

288 IF A<41 THEN SL=1:SPS='1 



FR 
UB 
RJ 



QR 
HF 
KQ 
LG 
YH 
DI 




210 IF A<77 AND A>48 THEN SL=2Ti 

<189 AND A>76 THEN SL=3:SPS="| 



141 AND A>188 

11 

171 AND A>148 
201 AND A>170 
225 AND A>288 
270 IF A< 245 AND A>224 



TD 280 IF a; 



THEN SL=4:SPS=" 
THEN SL=5;5PS=" 
THEN SL=6:SPS=" 
THEN SL=7:SP$=" 
THEN SL=8:SPS=" 
=245 THEN SL=9;SPS=' 11 Hi ■ 



ZQ 298 RETURN 

AX 388 FOR E=l TO 260 

HQ 310 READ AS 

KR 320 SPELLS C30«E41,30«Et29)=A$ 

EL 330 NEXT E 

BH 340 GOSUB 200: POKE 710, SLW1646; POKE 70 

9,8:V=Z 
MF 350 ? ■■H":FOR E=A TO A+Z:? SPELLS (E«30 

.EW30*29) ;NEXT E; POSITION 0.22; ? SPS;" 

w*'M^iaJmii;H!f-w:irp |^^|||pwt" ; z=19 
HR 368 POSITION 33,22:? LEVEL CSL, LU) ;"t" 
RC 378 FOR E=l TO U*l 
SB 388 POSITION 5,E:? CHRSCE«64) 
EX 390 NEXT E 
PG 488 OPEN ttl,4,e,"K:":GET ttl,CMD:CLOSE 

ttl 
UT 418 IF CHD=27 THEN STORES CXXM30,XXM30) 

="»■■: GOTO 1520 
DP 420 IF CHD=62 THEN LEVEL fSL,LV)=LEVELf 

SL,LV)+1 
GD 430 IF CHD=60 THEN LEVEL CSL, LV)=LEVELC 

SL,LM)-1 
SR 440 IF CHD>64 AND CHD<V«66 THEN GOSUB 

1320 
RG 458 IF CND=45 THEN A=A420:IF A>245 THE 

N A=245 
SH 460 IF GHD=61 THEN GOSUB 620:IF A<1 TH 

EN A=l 
SH 470 IF CHD=61 THEN GOTO 348 
EY 480 IF A=241 THEN A=225 
YN 490 IF A=211 THEN A=201 
FO 500 IF A=181 THEN A=171 
FC 510 IF A=149 THEN A=141 
A=117 THEN A=109 
A=81 THEN A=77 
A=61 THEN Z=15 
KD 550 IF A=97 THEN Zrll 
DA 560 IF A=129 THEN Z=ll 
5C 570 IF A=161 THEN Z=9 
TL 580 IF A=191 THEN Z=9 
HC 590 IF A=221 THEN Z=3 
FJ 680 IF A=245 THEN Z=15 
NZ 610 GOTO 340 

OL 628 IF A=225 THEN A=221:Z=3: RETURN 
PZ 630 IF A=20S THEN A=201:Z=19: RETURN 
ZG 640 IF A=201 THEN A=191:Z=9:RETURN 
HV 650 IF A=191 THEN A=171:Z=19: RETURN 
ZL 660 IF A=171 THEN A=161:Z=9: RETURN 
EA 670 IF A=151 THEN A=161 
PE 680 IF A=141 THEN A=129:Z=11 : RETURN 
XA 690 IF A=109 THEN A=97:Z=11; RETURN 
A=121 THEN A=109:RETURN 



GR 528 IF 
ZF 530 IF 
JP 540 IF 



TH 788 IF 
CT 718 IF 



A=89 THEN A=77:RETURN 
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UO 72e IF A=77 THEN A=61 :Z=15: RETURN 

TT 730 IF A=57 THEN A=41: RETURN 

GH 740 A=A-20 

ZN 7S0 RETURN 

HC 768 DATA Affect NorMal Fires, AlarM.APH 

or, Burning Hands, Cham Person, COMprehe 

nd Languages, Dancing Lights 
KN 770 DATA Detect Magic , Enlarge, Erase, Fe 

ather Fall, Find FaHiliar, Firewater, Fri 

ends, Grease, Hold Portal, Identify 
HS 780 DATA JUMP, Light, Magic Missile, Melt 

, Mending, Message, Mount, Nystul 's Magic 

Aura, Precipitation 
YB 7?0 DATA Protection Fron Evil, Push, Rea 

d Magic, Run, Shield, Shocking Grasp, Slee 

p, Spider CliMb, Taunt 
SH 880 DATA Tenser's Floating Disk, Unseen 
Servant, VentriloquiSH,Hizard Mark,Hri 

te 
HO 818 DATA Audible Glaner, Bind, Continual 
Light, Darkness 15' Radius, Deeppockets 

, Detect Evil, Detect Invisibilitv 
AK 828 DATA ESP,FlaMing Sphere, Fools Gold 

.Forget, Invisibility, Irritation, Knock, 

Know AlignMent,LeoHund's Trap 
OZ 838 DATA Levitate, Locate Object, Magic 

Mouth, Mel f's Acid Arrow, Mirror lHage,P 

reserve, Protection Fron Cantrips 
TO 848 DATA Pyrotechnics, Ray of EnfeebleN 

ent,Rope Trick, Scare, Shatter, St inking 

Cloud, strength 
BC 850 DATA Tasha's Hideous Laughter, Voca 

lize,Heb,Hhip,Mizard Lock, Zephyr, Blink 

,Clairaudience, Clairvoyance 
JS 868 DATA Cloudburst, Detect Illusion, Di 

spel Magic, Explosive Runes, Feign Death 

, Fireball, Flane Arrow, Fly 
AG 878 DATA Gust Of Hind, Haste, Hold Perso 

n,Infravision, Invisibility 18* Radius, 

Iten 
EQ 888 DATA LeoMund's Tiny Hut, Lightning 

Bolt, Material, Melf's Minute Meteor, Mon 

ster SuMMoning I,PhantasNal Force 
UT 898 DATA Protection Fron Evil 18',Prot 

ect FroH Missiles, secret Page, Sepia Sn 

ake Sigil, Slow, suggest ion, Tongues 
RY 988 DATA Hater Breathing, Hind Hall,Cha 

rn Monster. Confusion, Dig, DiMension Doo 

r, Dispel Illusion, Enchanted Heapon 
HT 918 DATA Evard's Black Tentacles, Exten 

sion I, Fear, Fire CharH,Fire Shield, Fir 

e Trap,FuMble 
ZU 928 DATA Hallucinatory Terrain, Ice Sto 

rM,LeoMund*s Secure Shelter, Magic Mirr 

or,MassMorph 
RM 938 DATA Minor Globe/Invulnerabil ity,N 

onster SUNHoning II,etiluke's Resillen 

t Sphere, Plant Growth 
II 948 DATA PolyMorph Other, PolyNorph Sel 

f.Rary's Enhancer, Renove curse, shout, S 

toneskin,Ultravision 
VV 958 DATA Hall Of Fire, Hall Of Ice.Hiza 

rd Eye, Airy Hater, AniMal Growth, AniMat 

e Dead, Avoidance 
UA 968 DATA Bigby's Interposing Hand, Clou 

dkill, Conjure EleMental,Cone of Cold,c 

ontact Other Plane, DisMissal 
lY 978 DATA Distance Distortion, Dolor, Ext 

ension II, Fabricate, Feeblenind, Hold Mo 

nster,LeoMund's BelabourHent 
LX 988 DATA LeoHund's Secret Chest, Magic 

Jar, Monster SuMHoning IIl,Mordenkainen 

■s Hound, Passwall, Sending 
XP 998 DATA Stone Shape, Telekenesis,Telep 

ort,TransHute Rock to Mud, Hall of Fore 

e.Hall of Iron, Ha II of Stone 
RP 1888 DATA Anti-Magic Shel 1 ,Bigby 's For 

ceful Hand, Chain Lightning, Contingency 

, Control Heather, Death Spell 
NX 1818 DATA Disintegrate, Enchant an Iten 

, Ensnarenent , Extens i on II , Eyeb i t e , Geas 

,Glassee, Globe of Invulnerability 
CU 1820 DATA Guards and Hards, Invisible S 



talker, Legend Lore, Lower Hater, Monster 
SuHMoning lU 
GK 1830 DATA Mordenkainen's Lucubration.N 

ove Earth, Otiluke's Freezing Sphere, Pa 

rt Hater, Pro ject iNage, Reincarnation 
VY 1840 DATA Repulsion, Spiritwrack, Stone 

To Flesh, Tensor's TransforMation, Trans 

MUte Hater to Dust,BanishHent 
EU lose DATA Bigby's Grasping Hand,Cacode 

Mon,CharM Plants, Delayed Blast Firebal 

l.DrawNij's Instant SuMHons 
DF 1668 DATA Duo-DiMension,Foregage,LiNit 

ed Hish,Mass Invisibility, Monster Summ 

oning U 
CX 1878 DATA Mordenkainen's Mansion, Horde 

nkainen's Sword, Phase Door, Power Hord 

CStunl, Reverse Gravity, Sequester 
ZH 1888 DATA SiMUlacruM, Statue, Teleport H 

ithout Error, TorHent,TruenaHe, Vanish, V 

olley,Antipathy/SyMpathy 
NU 1890 DATA Bigby's Clenched Fist.Bindin 

g,C lone, DeMand,Glassteel, Incendiary CI 

oud.Hass CharM, Haze, Hind Blank 
HG 1188 DATA Monster SuMMoning VI,0tiluke 

's Telekinetic Sphere, otto's Irresisab 

le Dance, Pernenancy 
JH 1118 DATA Polynorph Any Bbject, Power H 

ord CBlindJ,Serten's Spell lMMunity,Si 

nk,syHbol,Trap The soul, Astral Spell 
BE 1128 DATA Bigby's Crushing Hand,Cry5ta 

Ibrittle, Energy Drain, Gate, iMprisonnen 

t, Meteor swarn, Monster Sunnoning VII 
HC 1138 DATA Mordenkainen's Dis junction, P 

ower Hord fKill) .Prisnatic Sphere, Shap 

e Change, Succor, TeNporal Stasis 
SS 1148 DATA TiHe Stop,HiSh 
KJ 1150 RESTORE 1238 
ZX 1160 FOR E=l TO 9 
JC 1178 FOR 1=1 TO 18 
QN 1180 READ A 
RG 1198 LEVELCE.I)=A 
ET 1288 NEXT I 
DE 1218 NEXT E 
AJ 1220 RETURN 
NS 1230 DATA 1,2,2,3,4,4,4,4,4,4,4,4,5,5, 

5 5 5 5 
FF 1240 DATA 0,0,1,2,2,2,3,3,3,4,4,4,5,5, 

AS 1250 DATA 0,0,8,8,1,2,2,3,3,3,4,4,5,5, 

5 5 5 5 
QN 1260 DATA 8,8,8,8,8,8,1,2,2,2,3,4,4,4, 

5 5 5 5 
MU 1270 DATA 8,8,8,8,8,8,8,8,1,2,3,4,4,4, 

IH 1^86 6aTA 8,8,8,8,8,8,8,8,8,8,8,1,2,2, 

2,3,3,3 
ZY 1298 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,1, 

1,2,3,3 
RC 1380 DATA 8,8,8,8,8,8,8,8,8,8,8,8,0,8, 

12 2 
KP 1310 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8, 

8,8,8,1 
FU 1320 tE5T=INTfl8e»RHDC8J+lJ 
BQ 1330 IF LEVEL CSL,LV1<=0 THEN POSITION 

0,22:? "Q YOU'VE NO SPELLS LEFT AT TH 

IS LEVEL! f" 
NT 1340 IF LEVEL ISL.LVJ<=0 THEN FOR E=l T 

108:NEXT E:RETURN 
BP 1358 IF ASCISPELL$CCA*CMD-65>«30tl,CA* 

CMD-65)«30+l})>128 THEN TEST=e:GOTO 13 

78 
AX 1360 GOSUB 1438 
JY 1370 IF TEST<=CTN THEN GOSUB 1500:P0SI 

TION 0,22:? " YOU MAY CHOOSE TH 

AT SPELL f" 
GV 1380 IF TE5T<=CTH THEN FOR E=l TO 108 1 

NEXT E:LEVELC5L,LVJ=LEVELCSL,LV>-1 
YO 1390 IF TEST<=CTH THEN AS=SPELLS t CA+CM 

D-65J«3fl+l, CA*CMD-65J»30*29) :GOSUB 146 

o:return 
ht 1400 spells cca+cmd-65>«38*l,ca+cmd-65) 

»38*29)=" „ " 

SE 1418 POSITION 8,22:? "13 YOU MAY 
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character Generator II continued 



NOT HAVE THAT 5PELL t":FOR E=l TO 
lOesNEXT E 
AN 1420 RETURN 
OZ 1430 FLAG=e:IF SPELLS f CAtCHD-65]»30«l. 

fA4CI1D-65}K30*l)=" " THEN POSITION 0,2 

2:FLAG=1 
UA 1440 IF FLAG=1 THEN ? "yiHERE IS NO SP 

ELL LISTED AT THAT LETTER! t":FOR E=l T 

100: NEXT E:POP :GOTO 1420 
AH 1450 RETURN 
ZV 1460 IF ASCfA$Cl,l)}>128 THEN FOR E=l 

TO LENCA$] :ASCE,E)=CHR$fASCtA$(E,E)J+l 

28):NEXT E 
HZ 1470 ST0RE$CKX«30,XXK30+29]=A$:XX=XX+1 
AG 1480 FOR E=l TO LENCASJ :A${E,E)=CHRS CA 

SG CA$ f E , El ) *128) : NEXT E : SPELLS t CA^CMD- 

6S}N30tl, (AtCHD-65J»30t29)=AS 
BI 1490 RETURN 
EH ISOO FOR SU=1 TO 5:S0UND 0.30.10.ie:F0 

R US=1 TO 2:NEXT US:SOUND e,10,lO,10:F 

OR U5=l TO 2:NEXT US:NEXT SU 
XN 1510 SOUND 0,0, 0,0: RETURN 
GH 1520 OPEN ttl.8,0,"P:":XX=l: PRINT ftl.CH 

R$ (10) ; CHR$ (14) ; "MAGICAL SPELLS", , "NOT 

ES"; CHR$ (20) ; CHRS (10) 
XE 1530 PRINT ttl, STORES (XH»30, XX»30t29) ," 

LK 1540 XX=XXtl 

GH 1550 IF STORES (XX»30,XX«30)="«" THEN R 

UN "D:EOUIPHNT" 
RL 1560 GOTO 1530 



RENT Jll BUY 
ATARI 

Just Try It 

Consider renting your software. 
We have thousands of titles, old 
and new, with more arriving every 
week. If you decide to buy, the 
rent you have paid is taken off 
the purchase price. In addition, 
you can save at least 20% on used 
software. How can you lose? 

Call now for our latest software list 



Call toll-free outside Texas: 1-800-433-2938 
- Inside Texas call; 817-292-7396 

WEDGWOOD RENTAL 

5316 Woodway Drive 
Fort Worth, Texas 76133 






Listing 2. 
BASIC listing fsave as "DALLUSION"). 



EH 10 DIH SPELLS (10000), AS (40), SPS (10), LE 

UEL (9, 18) , NAHS (30) , LNAHS (185) , AT (35,10 

), STORES (1800) 
EQ 20 CLOSE tt3:0PEN tt3,4,0,"D:CHARACTR.DT 

A": INPUT tt3; CHAR: INPUT tt3 ; NAHS : CLOSE tt 

3:0PEN tt3, 4,0, NAHS 
GK 30 FOR E=l TO 30: FOR J=l TO CHAR 
JG 40 INPUT tt3,X:AT(E,J}=X 
MK 50 NEXT J:NEXT E 
IP 60 INPUT tt3, LNAHS; CLOSE tt3 
ZU 70 N=AT(22,1):LV=AT(8,N) 
LX 80 IN=AT(2,N):IF IN=9 THEN CTN=35iHIN= 

4:HAX=6 
BN 90 FLAG=e:XX=l 

PC 180 IF IN>9 THEN CTN=45:HIN=5:HAX=7 
VX 110 IF IN>12 THEN CTN=55:HIN=6:MAX=9 
FP 120 IF IN>14 THEN CTN=6S:HIN=7:MAX=11 
HZ 130 IF IN=17 THEN CTN=75:HIN=8:HAX=14 
VG 140 IF IN=18 THEN CTN=85:HIN=9:HAX=18 
UR 150 GRAPHICS 0:P0KE 752,1: POKE 82,7:P0 

SITION 2,12:? "INITIALIZING, PLEASE HA 

IT. . ." 
GV 155'CHD=PEEK(16):IF CHD>127 THEN CHD=C 

MD-128:P0KE 16,CHD:P0KE 53774, CMD 
SO 160 SPELLS= SPELLS(10000)=SPELLS:SP 

ELLS (2) =SPELLS : A=l : Z=15 
OA 170 STORESr STORES (1800) =STORES:STO 

RES (2) =STORES : A=l : Z=15 
GJ 180 GOSUB 750: RESTORE 1170; GOTO 290 
HC 190 IF A<17 THEN SL=l:SP$="r 



••" 200 IF A<33 AND A>16 THEN SL=2:SPJ 
*« 210 IF A<49 AND A>32 THEN SL=3:SPS='1 



QU 



lyii-'. 



A<61 AND A>40 THEN SL=4;SP$="| 



CIRCLE #151 ON HEADER SERVICE CARD 



M 230 IF A<73 AND A>60 THEN SL=S:SPS="H 

LF l*0Jt^'><85 AND A>72 THEN SL=6:SPS="H 

SP 258 IF A> 84 THEN SL=7 : SPS="Eigi3m" 

ZO 280 RETURN 

HA 290 FOR E=l TO 92 

HO 300 READ AS 

KP 310 SPELLS (30«E41,30KE«29)=AS 

EJ 320 NEXT E 

EY 330 GOSUB 190: POKE 710, SL«16«6: POKE 70 

9,0;V=Z 
UP 340 ? "«";F0R E=A TO A+Z;? SPELLS (E»30 

,EW30*29) ;NEXT E:POSITION 0,22: '» SPSj" 

ii*mt=iJ^N*M;M:rJH.'n:i :WPP^t" : z=i5 

RP 350 POSITION 33,22:? LEVEL (SL,LU) ;"t" 

RA 360 FOR E=l TO V*l 

RZ 370 POSITION 5,E:? CHRS(Et64) 

EV 380 NEXT E 

PX 398 OPEN ttl,4,0,"K:";GET ttl,CHD;CLOSE 

ttl 
HZ 480 IF CHD=27 THEN STORES (XXN30,XXM30) 

=■■»■■ -GOTO 1120 
DN 410 IF CHD=62 THEN LEVEL (SL,LV)=LEVEL( 

SL,LV)*1 
GB 420 IF CHD=6e THEN LEVEL (SL,LV)=LEVEL( 

SL,LV)-1 
AJ 430 IF CHD>64 AND CHD<Vt66 THEN GOSUB 

920 
OC 440 IF CHD=45 THEN A=Atl6:lF A>85 THEN 

A=85 
RE 450 IF CMD=61 THEN GOSUB 610: IF A<1 TH 

EN A=l 
RK 460 IF CHD=61 THEN GOTO 330 
IH 470 IF A>=49 THEN Z=ll 
VR 475 IF A>=85 THEN Z=7 
UH 480 IF A=65 THEN A=61 
VO 490 IF A=77 THEN A=73 
VM 500 IF A=89 THEN A=85:Z=8:V=8 
NH 680 GOTO 330 
SJ 610 IF A=85 THEN A=73:Z=11: RETURN 
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OV 628 IF A=73 THEN A=61:Z=11 : RETURN 

5P 630 IF A=61 THEN A=49:Z=11: RETURN 

IE 730 A=A-16 

ZL 740 RETURN 

HO 750 RESTORE 830 

OB 760 FOR E=l TO 7 

HL 770 FOR 1=1 TO 18 

TC 780 READ A 

EH 790 LEVELfE,Il=A 

FY 880 NEXT I 

EH 810 NEXT E 

ZI 820 RETURN 

KU 830 DATA 1, 2, 2, 3, 4, 4, 4, 4>5, 5, 5, 5, 5, 5, 5 

AG 840 DATA 0,0,1,2,2,3,3,3,3,4,4,5,5,5,5 

HY 850 DATA 0,0,0,0,1,1,2,2,3,3,3,4,4,4,4 

ZU §60 6aTA 0,0,0,0,0,8,8,1,2,2,3,3,3,3,4 

,4,4,5 
HI 870 DATA 0,0,0,0,0,0,0,8,0,1,2,2,2,2,2 

ZQ 880 DATA 0,0,0,0,8,8,8,8,8,0,8,1,2,2,2 

i2,2,3 
VH 890 DATA 0,0,0,0,0,0,0,0,0,0,0,0.1,2,2 

2 2 2 
XX 920 TESTrlNTtlOOWRNDf 01+11 
OF 930 IF LEUELC5L,LV)<=0 THEN POSITION 

,22:? "ta YOU "ME NO SPELLS LEFT AT THI 

S LEVEL! f 
FS 940 IF LEVEL tSL,LV)<=0 THEN FOR E=l TO 

100:NEXT E:RETURN 
OT 950 IF ASCCSPELL$(CA4CHD-65)K3e«l,CAtC 

MD-65JJf30tlJ>>128 THEN TEST=0:GOTO 970 
SP 960 GOSUB 1830 
DX 970 IF TEST<=CTN THEN GOSUB liee:POSIT 

ION 0.22:? " YOU MAY CHOOSE THA 

T SPELL f" 
MG 980 IF TEST<=CTN THEN FOR E=l TO 10e:N 

EXT E: LEVEL (SL,LVJ=LEVELCSL,LVJ-1 
DB 990 IF TEST<=CTN THEN A$=SPELLS t CA+CMD 

-65}«30+l, {AtCMD-65)»30+29J :G0SUB 1868 

: RETURN 
HL 1808 SPELL$(fA+CHD-65)K3etl,fAtCMD-65} 

»f30*29J=" " 

RH 1810 POSITION 0,22:? "□ YOU NAY 

NOT HAVE THAT SPELL t":FOR E=l TO 
100:NEXT E 
AF 1020 RETURN 
OR 1030 FLAG=e:IF SPELLS fCA4CMD-65)K30tl, 

CA+CMD-65J»30*1J=" " THEN POSITION 0,2 

2:FLAG=1 
EE 1040 IF FLAGrl THEN ? "QTHERE IS NO SP 

ELL LISTED AT THAT LETTER! t": FOR E=l T 

100:NEXT E:POP :GOTO 1020 
AO 1058 RETURN 
ZN 1860 IF ASCtASCl,l)}>128 THEN FOR E=l 

TO LENfA$) :A$fE,E)=CHR$fASC{A$CE,EJI+l 

28):NEXT E 
HR 1870 ST0RE$(XX»30,XX«3et29)=A$:XX=XX41 
ZY 1080 FOR E=l TO LEN(AS) : A$ tE.E]=CHR$ f A 

SC(A$(E,E}J+128] :NEXT E : SPELLS fCA+CM)- 

65)«301^1, fA4CND-65)N30t29}=A$ 
BA 1090 RETURN 
DZ 1100 FOR SU=1 TO 5:S0UND 0,30,10,10:F0 

R us=i TO 2:NEXT us:souND e.ie,ie,i8:F 

OR US=1 TO 2: NEXT US: NEXT SU 
XF 1110 SOUND 0,e,0,e:RETURN 
GO 1120 OPEN ttl,8,a,"P:":XX=l:PRINT ttl,CH 

R$ f 18} ; CHR$ C14I ; "MAGICAL SPELLS" , , "NOT 

ES":CHR$f28):CHR$fie) 
HH 1138 PRINT ttl,STORE$ (XX«30,XX«30t29} ," 

LC 1140 XX=XX+1 

GE 1150 IF STORES (XX«30,XX«30)="«'i THEN R 

UN "D:EQUIPMNT" 
PH 1160 GOTO 1138 
MB 1178 DATA Audible Glaiter, Change Self.C 

hroHatic Orb, Color Spray, Dancing Light 

s, Darkness, Detect Illusion 
AK 1180 DATA Detect Invisibilitv.Gaze Ref 

lection,HypnotisN,Li9ht,PhantasNal For 

ce.PhantoM ArHor 



AN 1190 DATA Read Illusionist Magic, Spook 
,Hall of Fog, Alter Self , Blindness, Blur 
, Deafness, Detect HagicFastinate 

TI 1200 DATA Fog Cloud, Hypnotic Pattern,! 
Mproved PhantasHal Force, Invisibility, 
Magic Mouth, Mirror iHage, Misdirection 

IH 1210 DATA Ultravision,UentriloquisN,Hh 
ispering Hind, Continual Darkness, Conti 
nual Light, Delude, Dispel Illusion 

ND 1220 DATA Fear, Hal lucinatory Terrain,! 
llusionary Script, Invisibility flO* ra 
dius] ,Non-Detection,Paralyzatton 

IN 1230 DATA PhantoN Steed, PhantON Hind,R 
ope Trick, Spectral Force, Suggestion, Hr 
aithforn, Confusion 

OH 1240 DATA Dispel Exhaustion, Dispel Mag 
icEMOtion.lMproved invisibility.MassN 
orph, Minor Creation, PhantasNal Killer 

JY 1250 DATA Rainbow Pattern, Shadow Monst 
ers, Solid Fog, Vacancy, Advanced lUusio 
n, Chaos, Deni -Shadow Monsters, DreaM 

OD 1260 DATA Magic Mirror.Major Creation, 
Maze, Projected litage, Shadow Door,Shado 
w Magic, SuMMon Shadow, TeHpus Fugit 

XP 1278 DATA Conjure Aninals, Death Fog,De 
Mi-Shadow Magic, Mass Suggestion, Mirage 
Arcane, Mis lead, Pernanent Illusion 

AG 1288 DATA PhantasHagoria,PrograNMed II 
lusion, Shades, True Sight, Veil, Alter Re 
ality.Astral Spell, PrisMatic Spray 

LD 1298 DATA PrisNatic Hall, Shadow Halk,V 
ision,Meird,lst Level Magic-user spell 
s 



ULTIMATE STORAGE 

Organize your ANALOG Computing library with sturdy, custom-made 
binders and files in deep blue leatherette with embossed silver letter- 
ing, labels included. One binder or box file holds 12 issues (1 year). 




The ANALOG Computing binder opens flat. Priced at only $8.50 
each— 3 binders for $24.75 or 6 binders for $48.00, postage paid. 
The ANALOG Computing file is compact, with easy access. Only 
$6.95 each— 3 files for $20.00 or 6 files for $36.00, postage paid. 

Foreign orders add SZ-SO/item shipping and handling. Allow 4 to 5 weeks for delivery. 



1 enclose my 


check/money order in 
ANALOG files 


the amnnnt nf $ 


Send me: 


ANALOG binders. 


PLEASE PRINT. 

Namfi- 




City 


.qtalo 7ip- 



Mail to: Jesse Jones Industries 

P.O. Box 5120, DEPT ACOItfl, Philadelphia, PA 19141 

Satisfaction guaranteed or money refunded. 
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Listing 3. 
BASIC listing (save as "D.CLERK"]. 



EM 18 DIH 5PELLStlfleeO),A$f4O),SP$tl0).LE 

UEL C9, 181 , NANI C30} , LNAM$ (165) , AT (35 , 18 

), STORES (1880) 
EQ 28 CLOSE lt3:0PEN tt3,4.0,"D:CHARACTR.DT 

A": INPUT tt3; CHAR: INPUT tt3;NAMS: CLOSE tt 

3; OPEN tt3,4,e,NAM$ 
GK 38 FOR E=l TO 30: FOR J=l TO CHAR 
JG 48 INPUT tt3,X:AT(E,J)=X 
MK 58 NEXT J:NEXT E 
IP 68 INPUT tt3,LNANS: CLOSE tt3 
ZU 78 N=AT(22,1>:LV=AT(8,N) 
BM 88 FLAG=0:XX=1 
FJ 98 GRAPHICS 0:POKE 752,1:P0KE 82,7:P0S 

ITION 2.12:? "INITIALIZING, PLEASE HAI 

T . . . " 
HY 95'CMD=PEEK(16) :IF CHD>127 THEN CMDrCH 

D-128:P0KE 16,CHD:P0KE 53774, CUD 
FH 180 CND=PEEK(16):IF CHD>127 THEN CHD=C 

MD-128:P0KE 16,CMD:PQKE 53774, CHD 
BO 118 5PELL$= SPELL$ (18800) =SPELLS:SP 

ELLS (2) =SPELL$ : A=l : Z=19 
HM 120 STORES=" ": STORES (1800) =STORE$:STO 

REI (2) =STORE$ : A=l : Z=19 
NB 130 GOSUB 490: RESTORE 890 :G( 

TO 140 IF A<21 THEN SL=1:SP5="| , 

»<" 150 IF A<41 AND A>28 THEN SL=2TSP3 

TI 168 IF A<61 AND A>40 THEN SL=3:SPS='1 



PJ 170 IF A<77 AND A>60 THEN SL=4;SPS="1 
PH feO IF A<93 AND A>76 THEN SL=5:SPS="| 



AJ 



ss.< 



<105 AND A>92 THEN SL=6:SP$="| 



OY 280 IF A>184 THEN SL=7 : SPS="EI91ID!I" 

ZA 210 RETURN 

BH 220 FOR E=l TO 116 

HT 230 READ AS 

KU 240 SPELLS (3eWE«l,3e«E«29)=AS 

EO 250 NEXT E 

CV 268 GOSUB 148: POKE 710, SL«1646; POKE 70 

9,0!V=Z 
MI 270 ? ••H":FOR E=A TO A*Z:? SPELLS (E«30 

.Eit38*29) :NEXT E; POSITION 0.22; ^ SPS;" 

lllil'j=<*HJ^W»=Pi>=<!r^ '^II7PWIlPllli>*'' : Z=19 
RU 280 POSITION 33,22:? LEVEL (SL,LV) ;"t" 
RF 290 FOR E=l TO U*l 
RL 388 POSITION 5,E:? CHRS(Et64) 
EH 318 NEXT E 
PJ 320 OPEN ttl,4,e,"K:":GET ttl,CMD: CLOSE 

ttl 
KF 330 IF CHD=27 THEN STORES (XXM3e,XXM38) 

="«":GOTO 840 
DS 340 IF CHD=62 THEN LEVEL (SL,LV)=LEUEL( 

SL,LV)*1 
GG 350 IF CMD=6e THEN LEVEL (SL,LV)=LEVEL( 

SL,LV)-1 
ZD 360 IF CMD>64 AND CHD<V466 THEN GOSUB 

640 
VD 370 IF CND=45 THEN A=A«20:IF A>185 THE 

N A=185:Z=11 
TM 380 IF CMD=61 THEN GOTO 440 
JX 390 IF A=61 THEN Z=15 
YB 480 IF A=81 THEN A=77:Z=1S 
VJ 410 IF A=97 THEN A=93:Z=11 
TZ 420 IF A=113 THEN A=ie5:Z=ll 
ON 430 GOTO 260 

TS 440 IF A=185 THEN A=113:Z=11 
XF 458 IF A=93 THEN A=97:Z=11 
SP 460 IF A=77 THEN A=81:Z=11 
DY 470 A=A-20:IF A<1 THEN A=l 
OX 480 GOTO 260 
XK 490 RESTORE 578 
NN 580 FOR E=l TO 7 
VX 510 FOR 1=1 TO 18 
SO 520 READ A 
EI 530 LEVEL(E,I)=A 



GD 548 NEXT I 

MC 550 NEXT E:A=1 

ZN 560 RETURN 

ZN 570 DATA 1,2,2,3,3,3,3,3,4,4,5,6,6,6,7 

7 fl fl 
UT 580 DATA 0,0,1,2,3,3,3,3,4,4,4,5,6,6,7 

7 fl fl 
NZ &96 6aTA 8,0,8,0,1,2,2,3,3,3,4,5,6,6,7 

7 fl fl 

RI 680 DATA 0,8,8,0,8,8,1,2,2,3,3,3,4,5,5 

,6,6,7 
YO 610 DATA 0,0,0,0,8,0,0,8,1,2,2,2,2,3,4 

GI 620 DATA 0,0,0,0,0,0,0,0,8,8,1,2,2,2,2 

,3,3,4 
JC 630 DATA 8,8,8,0,8,8,8,0,0,0,0,0,8,8,8 

,1,1.1 
XY 648 TEST=INT(ieONRND(0)tl) 
OG 650 IF LEVEL (SL,LV)<=0 THEN POSITION 8 

,22:? "Q YOU'VE NO SPELLS LEFT AT THI 

5 LEVEL! t" 
FT 660 IF LEVEL (SL.LV)<=8 THEN FOR E=l TO 

lOOiNEXT E:RETURN 
HA 670 IF ASC (SPELLS ((A+CMD-65)»38*1,(A*C 

MD-65)«38*1))>128 THEN TEST=e:GOTO 690 
HD 688 GOSUB 750 
HC 690 TEST=0: GOSUB 828 
ER 780 LEVEL(SL.LV)=LEVEL(SL,LV)-1 
LM 710 AS=5PELLS((A*CHD-65)«30*1, (AtCMD-6 

5}M30t29):G0SUB 780:RETURN 
GD 720 SPELLS((A*CHD-65)«30*1,(A*CMD-65)« 

30+29)=" " 

ZU 738 POSITION 8,22:? "Q YOU MAY N 

OT HAVE THAT SPELL f":FOR E=l TO 

180:NEXT E 
ZL 740 RETURN 
MM 750 FLAG=0:IF SPELLS ( (A4CHD-e5)»30*l. ( 

A*CMD-65)»38*1)=" " THEN POSITION 0,22 

:FLAG=1 
JM 768 IF FLAG=1 THEN ? "QTHERE IS NO SPE 

LL LISTED AT THAT LETTER! t": FOR E=l TO 
108: NEXT E:POP :GOTO 740 
ZR 770 RETURN 
VT 780 IF ASC(AS(1,1))>128 THEN FOR E=l T 

LEN (AS) : AS (E , E) =CHRS (ASC (AS (E , E) ) +12 

8): NEXT E 
XR 790 STORES (XX«30,XX»38+29)=AS:XX=XXtl 
IH 800 FOR E=l TO LEN(AS) : AS(E,E)=CHRS(AS 

C (AS (E , E) ) +128) : NEXT E : SPELLS ( (A+GMD-6 

S)K3e+l, (A+CMD-65)K38+29)=AS 
ZG 810 RETURN 

OS 820 FOR SU=1 TO 5:S0UND 0,38,10,18:F0R 
US=1 TO 2:NEXT USiSOUND e,ie,10,10:FO 

R US=1 TO 2: NEXT US: NEXT SU 
RK 830 SOUND 0,e,0,0:RETURN 
XZ 840 OPEN ttl.8,8,"P:":XX=l:PRINT ttl.CHR 

5(10); CHRS (14) j ''MAGICAL SPELLS", , "NOTE 

S" ; CHRS (20) ; CHRS (10) 

KJ 850 PRINT ttl, STORES (XX)(30,XXK30+29)," I 
•I 

JG 860 XX=XX+1 

MF 870 IF STORES (XX*30,XX*30)="*" THEN RU 
N "D:EQUIPMNT" 

QY 888 GOTO 850 

JT 890 DATA Bless.CereHony.CoMbine.CoHMan 
d, Create Hater.cure Light Hounds, Detec 
t Evil. Detect Magic. Endure Cold/Heat 

FP 900 DATA Invisibility to Undead, Light, 
Magic Stone, Penetrate Disguise, portent 
.Precipitation, Protection Froi* Evil 

UG 910 DATA Purifi; Food c Drink, Renove Fe 
ar , Res i st Cold, Sane tuary , A id , Augery , Ch 
ant, Detect CharM, Detect Life 

01 920 DATA Dust Devil, Enthral I , Find Trap 
s,Hold Person, Holy SyHbol,KnoH Alignne 
nt, Messenger, Resist Fire 

YX 930 DATA Silence (15' Radius), Slow Poi 
son, Snake Cham, Speak Hith Anmals.Spi 
ritual HaHMer,Hithdraw,Hyvern Hatch 

RV 940 DATA AniHate Dead, Cloudburst, Conti 
nual Light, Create Food i Hater, Cure Bl 
indness,Cure Disease, Death's Door 

OM 950 DATA Dispel Magic, Feign Death, Flan 
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e Halk, Glyph of Harding, Locate Object, 
Hagical VestMent,Held into Stone 

HI 960 DATA Negative Plane Protection, Pra 
yer.ReNove curse, Renove Paralysis, Spea 
k Hith Dead, Hater Halk, Abjure 

TH 970 DATA Cloak of Fear, Cure Serious Ho 
unds, Detect Lie,Divination,Exorcise,Gi 
ant Insect, iHbue with Spell Ability 

VS 980 DATA Lower Hater, Neutralize Poison 
, Protection FroM Ewil ClO'l, Speak Hith 
Plants, Spell iHNunity, Spike stones 

VH 990 DATA Sticks To Snakes, Tongues, Air 
Halk, Animate Dead Honsters, Atonement, C 
OMHune,Cure Critical Hounds 

NO 1000 DATA Dispel Evil,FlaMe Strike, Gol 
eM, Insect Plague, Hagic Font, Plane Shif 
t, Quest, Rainbow, Raise Dead 

XE 1010 DATA Spike Growth, True Seeing, Aer 
ial Servant, Animate Object, Blade Barri 
er, Conjure Animals, Find The Path 

TH 1020 DATA Forbiddance, Heal , Heroes' Fea 
St, Part Hater, Speak Hith Monsters, ston 
e Tell,Hord Of Recall, Astral Spell 

FC 1030 DATA Control Heather, Earthquake, E 
xaction,Gate,HolyfUnholy)Hord,Regenera 
te, Restoration, Resurrection, Succor 

NG 1040 DATA Symbol, Hind Halk 



Listing 4. 
BASIC listing (save as 



'D-.DRUID"]. 



EM 10 DIM SPELLS tlOOOO),A$t40),SPSC10],LE 

UEL f 9 , 18) , NAM$ f 30) , LNAM$ f 165) , AT C3S , 10 

), STORES f 1800) 
EQ 20 CLOSE tt3:0PEN tt3,4,e,"D:CHaRACTR.DT 

A": INPUT tt3; CHAR: INPUT tt3;NAMS : CLOSE U 

3:0PEN tt3.4,0,NAM$ 
GK 38 FOR E=i TO 30: FOR J=l TO CHAR 
JG 40 INPUT tt3,X:ATfE,J)=X 
NK 50 NEXT J:NEXT E 
IP 60 INPUT tt3,LNAN$: CLOSE tl3 
ZU 70 N=AT(22,1):LV=ATC8,N) 
BH 80 FLAG=e:XX=l 
FJ 90 GRAPHICS 0:POKE 752,1:P0KE 82,7:P0S 

ITION 2,12:? "INITIALIZING, PLEASE HAI 

T . . ." 
HY 95'CMD=PEEKC16):IF CMD>127 THEN Cia>=CH 

D-128:P0KE 16,CND:P0KE 53774, CHD 
SE 100 SPELLS=" ":SPELL$C10000)=SPELLS:SP 

ELL$C2)=SPELL$:A=l:Z=15 
NO 110 STORE$=" ": STORES C1800)=ST0RE$:ST0 

RES 12) =ST0RES : A=l : Z=15 
LS 120 605UB 490: RESTORE 890;G 0T0 210 

VQ 130 IF A<17 THEN I I I — 1 I IJM 

OT 140 IF A<33 AND A>16 THEN SL=2:SPS="H 

annnai'' , , _ 

50 IJF A<49 AND A>32 THEN SL=3:5PS: 



HR 



RB 
JR 
LM 



160 IF, A<61 AND A>48 THEN 5L=4:SPS="| 

HiHHDDJi'' , , . 

70 IF A<73 AND A>60 THEN SL=5:SPS="| 

^" 

A<85 AND A>72 THEN SL=6:SPS="| 



WSaSEM" 



SH 190 IF A>84 THEN SL=7 ; SPSz'- BJAiJJ.'HM " 

YY 200 RETURN 

YA 210 FOR E=l TO 96 

HR 220 READ AS 

KS 230 SPELLS C30«E*1,30«E+29)=AS 

EM 240 NEXT E 

CH 250 GOSUB 130: POKE 710, SLK16«6: POKE 70 

9,0:M=Z 
US 260 ? "I5":F0R E=A TO A+Z:? SPELLS CE«30 

,EW30*29) :NEXT E:P0SITI0N 0,22: ? SPS;" 

WA'jJMMJiiiWiHirjunnniii—i^^ t" : z=i5 

RS 270 POSITION 33,22:? LEVEL ISL,LU) ;"t" 

RD 280 FOR E=l TO 0+1 

SC 290 POSITION 5,E:? CHR$tEt64) 

EF 300 NEXT E 



PH 310 OPEN ttl,4,e,"K:":GET ttl,CMD: CLOSE 

HI 
KD 320 IF CND=27 THEN STORES CXXK30,XXN30) 

="K":GOTO 840 
DO 330 IF CMD=62 THEN LEVEL fSL,LV)=LEVELC 

SL,LV)+1 
GE 340 IF CMD=60 THEN LEVEL CSL,LV)=LEVELC 

SL,LV)-1 
ZB 350 IF CMD>64 AND CMD<V+66 THEN GOSUB 

640 
OF 360 IF CND=45 THEN A=Atl6:IF A>85 THEN 

A=85 
SK 370 IF CND=61 THEN GOSUB 440: IF A<1 TH 

EN A=l 
SO 380 IF CMD=61 THEN GOTO 250 
IZ 390 IF A>=49 THEN Z=ll 
UG 400 IF A=65 THEN A=61 
XY 410 IF A=77 THEN A=73 
BQ 420 IF A=89 THEN A=85 
OC 430 GOTO 250 

SN 440 IF A=85 THEN A=73 :Z=11 :RETURN 
OZ 450 IF A=73 THEN A=61:Z=11 :RETURN 
ST 460 IF A=61 THEN A=49:Z=11 :RETURN 
IJ 470 A=A-16 
ZQ 480 RETURN 
XK 490 RESTORE 570 
NN 500 FOR E=l TO 7 
VX 510 FOR 1=1 TO 18 
SO 520 READ A 
EI 530 LEVELIE,I)=A 
GD 540 NEXT I 
ER 550 NEXT E 
ZN 560 RETURN 
MN 570 DATA 2,2,3,4,4,4,4,4,5,5,5,5,5,5,5 

HL 580 DATA 0,1,2,2,3,3,4,4,4,4,5,5,5,6,5 

MF 590 DATA 0,0,1,2,2,2,3,3,3,3,3,4,5,6,4 

KH 600 DATA 0,0,0,0,0,1,1,2,2,3,3,4,5,6,4 

,4,4,5 
QH 610 DATA 0,0,0,0,0,0,0,0,1,2,2,3,4,5,2 

FO 620 DATA 0,0,0,0,0,0,0,0,0,0,1,2,3,4,2 

,2,2,3 
YH 630 DATA 0,0,0,0,0,0,0,0,8,0,0,1,2,3,2 

2 2 2 
XY 640 fEST=INT(ieO«RNDCO)tl) 
OG 650 IF LEVEL CSL,LV)<=0 THEN POSITION 

,22:? ■■Q YOU'VE NO SPELLS LEFT AT THI 

S LEVEL! t" 
FT 660 IF LEVEL (SL,LV)<=0 THEN FOR E=l TO 

100:NEXT E:RETURN 
MA 670 IF ASCCSPELLSf CA+CMD-65)«30»1,CA+C 

MD-65)K30+1))>128 THEN TEST=0:GOTO 690 
HD 680 GOSUB 750 
HC 690 TEST=0:GOSUB 820 
ER 700 LEVELCSL,LV)=LEVELtSL,LV)-l 
LM 710 AS=SPELLSC(A*CMD-65)»30*1, CA+CMD-6 

5)K30429):G0SUB 780:RETURN 
GD 720 SPELLS CCAtCMD-65)W3041,fA*CND-65)N 

30*29)=" 
ZU 730 POSITION 0,22:? "□ YOU MAY N 

OT HAVE THAT SPELL t":FOR E=l TO 

100:NEXT E 
ZL 740 RETURN 
MM 750 FLAG=0:IF SPELLS ( fA«CHD-65}N30*l, t 

A+CMD-65)»30+l)=" " THEN POSITION 0,22 

:FLAG=1 
JM 760 IF FLAG=1 THEN ? "QTHERE IS NO SPE 

LL LISTED AT THAT LETTER !f":FOR E=l TO 
100:NEXT E:POP :GOTO 740 
ZR 770 RETURN 
VT 780 IF ASCCASfl,l})>128 THEN FOR E=l T 

LEN(A$) :ASCE,E)=CHRSCASCtASCE,E))*12 

8) :NEXT E 
XR 790 ST0RES(XXW30,XXN30*29)=AS:XX=XXtl 
IH 800 FOR E=l TO LEN f AS) : AS tE,E}=CHRS CAS 

C CAS CE . E) 1 +128) : NEXT E : SPELLS C CA+CMD-6 

5)M3e+i, (A+CND-65)N30+29)=AS 
ZG 810 RETURN 

as 820 FOR SU=1 TO 5:S0UND 0,30,10,10 :FOR 
US=1 TO 2:NEXT US:SOUND 0,10,10,10:F0 
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Character Generator II continued 



R US=1 TO 2: NEXT US: NEXT SU 
RK 836 50UND 0,0, 0,0 -.RETURN 
XZ 840 OPEN ttl.8.0,"P:":XX=l:PRINT ttl.CHR 

S aO) ; CHRI (14) ; ''HAGICAL 5PELL5", , "NOTE 

5" ; CHR$ (20) : CHRS (10) 
KJ 850 PRINT tti, STORED (XX»30,XXM30«29)," I 

■ I 

JG 860 XX=XX«1 

MF 870 IF STORES (XXN3e,XXK30)="«" THEN RU 

N "DiEQUIPMNT" 
QY 880 GOTO 850 

cz 8?o DATA AniNal Friendship,CereMony,De 
tect Balance, Detect Hagic, Detect Poiso 
n, Detect Snares a Pits, Entangle 

XN 900 DATA Faerie Fire, Invisibility To A 
niHals, Locate AniMals,Pass Hithout Tra 
ce, Precipitation, Predict Heather 

OH 910 DATA Purify Hater, Shillelagh, Speak 
Hith AniHals,Barliskin,CharM Person/Ha 
Nital, Create Hater, Cure Light Hounds 

RU 920 DATA Feign Death.Fire Trap.Flane B 
lade, Goodberry, Heat Hetal, Locate Plant 
SfObscurenent, Produce FlaMe 

OY 930 DATA Reflecting Pool, Slow Poison, T 
rip, Harp Hood, Call Lightning, Cloudburs 
t,Cure Disease, Hold Aniital 

ZF 940 DATA Know Alignnent 

HX 950 DATA Neutralize Poison, Plant Growt 



h, Protection Fron Fire, Pyrotechnics, sn 

are, Spike Growth, Starshine, stone Shape 
HI 960 DATA SuHNon Insects, Tree, Hater Bre 

athing, AniNal SuHnoning I, Call Hoodlan 

d Beings, Control Tenperature 
AT 970 DATA Cure Serious Hounds, Dispel Ha 

gic, Hallucinatory Forest. Hold Plant, PI 

ant Door, Produce Fire 
BV 980 DATA Protection FroN Lightning. Rep 

el Insects, Speak Hith Plants, AniMai Gr 

owth, AniNal SuNNoning ll 
NR 990 DATA Anti-Plant Shell, CoNNune Hith 
Nature, Control Hinds, Insect Plague, Ho 

onbeaN,Pass Plant, Spike Stones 
DA 1000 DATA Sticks To Snakes. TransHute R 

ock To Mud. Hall Of Fire. AniNal suNNoni 

ng III,Anti-AniNal Shell 
BS 1010 DATA Conjure Fire EleNental.Cure 

Critical Hounds, FeebleNind, Fire Seeds, 

Liveoak,TransHute Hater to Dust 
PL 1020 DATA Transport Via Plants, Turn Ho 

od,Hall Of Thorns, Heather SuNNoning,An 

iNate Rock.Changestaff 
EZ 1030 DATA Chariot Of Sustarre,Confusio 

n, Con jure Earth EleNental, Control Heat 

her.Creeping Doon, Finger Of Death 
YB 1040 DATA Fire StorN, Reincarnate, Sunra 

y,transNute Hetal to Hood 




r\ 



SOFTWARE'S NEW LINE-UP!! 

Pascal Products for the Atari Family ..... 

kyan pascal for the Atari $69.95 

kyan pascal is a DOS 2.5 based compiler for the Atari 800/1200XL and 130XE. It's a full Jensen-Wirth and designed 

for both beginning and advanced programmers. It's easy to use, lightning fast, and loaded with features like: 

■ Optimized 6502 machine code compiler ■ Full screen text editor ■ String handling and Atari graphic support, 

■ Source code linking, chaining, and random files, ■ Built-in assembler for inline or 

included assembly source code, and ■ Complete tutorial/reference manual. 

kyan pascal comes on a non copy-protected, single density disk and requires only 64K of memory. 

kyan pascals' New Line-Up! 

Advanced Graphics Toolkit $49.95 

Adds stunning graphics to your kyan pascal programs! The 
graphics primatlves in this toolkit let you develop your own 
custom graphics. Or, you can use the library routines to en- 
hance your programs with windows and clipping, shading, 
curves, and 2 and 3 dimensional transformations (with scal- 
ing, rotation, and projections). 



Programming Utility Toolkit $49.95 

Makes pascal program development faster and easier This 
toolkit includes utilities to generate random numbers, load 
binary files, sort lists, control screen and cursor functions, 
and more. It also Includes utilities for disk directories, cata- 
logues, and other file management functions. 



To Order Call: (415) 626-2080 

Send Check/ kyan software, Dept. V 

Money Order: 1850 Union Street, #183 

San Francisco, CA 94123 

Please include $4.50/order for shipping/ handling; $12 outside North America. 
CA residents add 6.5% sales tax. Purchase orders accepted. Sorry, no COD's. 



15 DAY TRIAL 

We Guarantee Your Satisfaction! 
Try any kyan product for 15 days. 
If not completely satisfied, 
return it for a refund. 



Visa/MC 
Accepted 
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SOFTVIEW CONCEPTS 
P.O. Box 1325 
Lisle, IL 60532 
(312) 968-0605 
48K Disk $20.00 



by Bob Curtin 



Like anyone who's spent a lot of time 
programming, I've gathered disks full of 
programming aids and utilities, all de- 
signed to make my life easier when I don 
my programmer's hat. Some — like Brian 
Moriarty's Snail (issue 12), Tom Hud- 
son's H:BUG (issue 18), and Charlie 
Bachand's Biup! (issue 9), have stood 
the test of time. They remain on one side 
or another of my DOS disk for easy ac- 
cess. But most of those little treasures 
have drifted to the back of my Flip'N' 
File, to age there gracefully. 

Oh, it's not that I don't need help now 
and again. That's an absolute. I just can't 
see using an "aid" that requires more 
work of you than it's designed to save. 
Perhaps some of this cynicism is a re- 
sult of thousands of hours in front of the 
keyboard (and getting set in my ways), 
but I think not. 

Take, for instance, the product which 
started this whole monologue: BASIC 
View by Software Concepts. It's a rea- 
sonably priced, machine language BA- 
SIC debugging tool. With it, you can 
step through BASIC programs one state- 
ment at a time (each statement is dis- 
played in the listing in inverse video, as 
it's executed), stopping to peer into vari- 
ables along the way. 

You can vary the speed of the program 



execution from a slow crawl to a very re- 
spectable clip. You can stop program ex- 
ecution, check the values of variables, 
and then restart execution where you 
stopped. This utility is perfect for de- 
bugging those convoluted, multi-nested 
loops BASIC'S noted for. 

A "browse" feature allows you to me- 
ander through the variable name table, 
checking values stored there. When 
you're ready, you may continue stepping 
through your program. 

BASIC View also provides for finding 
the value of individual variables as the 
program is running, and even for stuff- 
ing values into variables. (You can look 
at individual elements of arrays — one- or 
two- dimensional — or the elements of 
string variables, as well.) 

If, instead of entering a variable name 
into the "find" cell, you enter a number, 
BASIC View will interpret this number 
as an address and display the value 
stored there. You can even browse 
through your computer's memory and 
see what's going on there. 

You may enter any line number from 
your program (or even one that's close) 
into the "stop" cell. The program will 
stop at that point. It's a very handy fea- 
ture for debugging. 

There's a "count" cell to let you enter 
an integer value. This value will decre- 
ment each time the line number stored 
in the stop cell is run in your program. 



When the value in count reaches 0, BA- 
SIC View will stop executing your pro- 
gram. 

All of this would be kind of useless 
if you couldn't see what your program 
was putting out, especially when it 
comes to graphics. Watching your pro- 
gram's listing as it's executed is certain- 
ly helpful, but you also need to see just 
what your program is producing at any 
given point. 

No problem. Simply by pressing the 
OPTION key, you can toggle back and 
forth between the program output and 
the listing. A powerful feature, indeed. 

Finally, BASIC View allows you to list 
your program, both forward and back- 
ward — a feature I'd love to see in Atari 
BASIC. 

The 24-page manual covers every- 
thing you need to know to use the pro- 
gram, and includes some notes for ad- 
vanced programmers. 

Unfortunately, those notes may fall to 
blind eyes — because, in my opinion, 
this package has a few drawbacks that 
could keep it from being used extensive- 
ly by advanced BASIC programmers. 

One problem is the fact that BASIC 
View takes up over 13K of RAM. This 
leaves roughly 19.5K of program mem- 
ory (and, if you're using a high resolu- 
tion graphics mode in your program, 
that leaves a little over 12K for your BA- 
SIC program). 
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That's not to say BASIC View can't be 
used to debug programs of less than 
20K; it certainly can. And it performs 
quite well. Generally, though, applica- 
tions programs of any depth require 
much more memory. BASIC View will 
be useful in debugging individual rou- 
tines (in fact, it's perfect in that role). 

The next problem (cured in the new- 
est version; see below) is that, any time 
BASIC View is stepping through a pro- 
gram in the "run" mode and encounters 
a GOSUB with additional statements on 
the same line after the GOSUB, the pro- 
gram and BASIC View will quietly — 
and irrevocably — go into a coma when 
an attempt to return from the subroutine 
is made. 

Any GOSUB command must be the 
last statement on a given line. There was 
no mention of this phenomenon in the 
documentation which I had with the 
older version. That put a crimp in my 
programming style. I resented a pro- 
gramming "aid" which put artificial res- 
trictions on the very language it was 
designed to help you with. 

I'm told that Software Concepts has 
fixed this problem, and will replace old- 
er versions of the program with the new, 
at no charge. 

The third objection I have — and this 
is nothing but a matter of preference on 
my part — is that, with the exception of 
using the keyboard for actual input of 
data, the program is run with a joystick. 

When I'm deep into a programming 
session (and they regularly last fifteen 
to twenty hours at a stretch) , every con- 
ceivable horizontal space within arm's 
reach is covered with listings, reference 
books, memory maps, graphics sketches 
and beer cans. I have enough to do keep- 
ing track of the keyboard, never mind 
changing environments and fumbling 
around with a joystick. There's absolute- 
ly no reason why all input couldn't have 
been made via the keyboard. 

While, as a debugging tool for serious 
BASIC programmers, BASIC View falls 
somewhat short of the mark, it is an ide- 
al teaching aid for beginning and inter- 
mediate BASIC programmers. 

I have two children who've been pro- 
gramming in BASIC for some time. Lisa, 
my eight-year-old, took to BASIC View 
immediately (she's far the more talented 
of the two). 

The concept of "variable" finally hit 
home when she saw the values of her 
program variables changing before her 
eyes. The FOR NEXT loop was also 



something she had used, but never ful- 
ly conceptualized. Seeing the program 
flow helped her immensely. She's been 
using BASIC View as if it were a new 
video game — simply enjoying running 
some of her old programs through it, 
and writing new ones to see what hap- 
pens. 

In this context, I can't praise BASIC 
View enough. Programming texts, tutor- 
ials, magazine listings and even real, 
live teachers can give you the rules and 
syntax, illustrate how it should be done, 
even warn you of common programming 
errors. But BASIC View takes those les- 
sons and graphically shows the program 
flow. And, with the various ways you 
can change values and peer into varia- 
bles and memory locations, the code 



side of the program is brought into per- 
spective, as well as what actually hap- 
pens as a result of the coding. 

If you're looking for another book to 
help you learn how to program, perhaps 
you should consider BASIC View in- 
stead. With a beginner's manual on BA- 
SIC, an Atari computer and this pro- 
gram, you'll be in good shape. At little 
more than the price of a programming 
book, BASIC View is a solid value. CI 

Bob Curtin is a machinist who got into 
computing in 1982, when he bought an 
Atari 800. He uses it for writing, pro- 
gramming and telecommunications. He 
pre/ers the more cerebral computer 
games. 



CHECH UJRITER 

T»'TJI_I_.F'ILLXN<3 THE F>F?OI«II S E 

YOU CAN ACTUALLY SAVE HOURS EACH MONTH BY 
LETTING YOUR COMPUTER PRINT YOUR CHECKS WHILE 
IT AUTOMATICALLY BALANCES YOUR CHECKBOOK. 

F>F*ir«ITXNC3 

PRINTS COMPLETE CUSTOM FORMATTED CHECKS ON ANY 

TYPE OF CONTINUOUS CHECK FORM WITH FAST SIMPLE 

ENTRIES. 

AUTOMATICALLY CONVERTS AND PRINTS A DIALOG 

VERSION OF THE NUMERICAL CHECK AMOUNT. 

PRINTS ADDRESS LABELS PRESELECTED DURING CHECK 

ENTRY. 

PRINTS DETAILED ACCOUNT STATUS AND LIST OF 

CHECKS. 

PRINTS ALPHABETICAL LIST OF VENDORS AND 

CREDITORS. 

ADDF5ESS LXST 
MAINTAINS AN ON-LINE DATABASE OF NAMES. 
ADDRESSES AND TELEPHONE NUMBERS OF YOUR 
VENDORS AND CREDITORS. 

TYPE NAMES AND ADDRESSES ONLY ONCE 
FOREVER r • 
EASILY ADD. DELETE, CHANGE AND SAVE ADDRESS 
RECORDS. 

A-OCCMJTNT :B A. L^MSr C X MC3 

AUTOMATICALLY UPDATE YOUR CHECKING ACCOUNT 
BALANCE WITH EACH CHECK YOU ENTER. 
ENTER DEPOSITS AND MISCELLANEOUS WITHDRAWALS. 
DISPLAY THE BANK NAME AND YOUR ACCOUNT NUMBER. 
COMPLETE ELECTRONIC FILING SYSTEM SAVES AND 
RETRIEVES ALL DATA GENERATED DURING ANY 
PREVIOUS ENTRY SESSION. 

I*"OR TME XIMCF^EDIBLE 
E>F?. X CrE O F- 

PLUS $2.50 SHIPPING S HANDELING 

REQUIRES ATARI flOO, 800. XL or XE WITH USK., 80 
COLUMN PRINTER. DISK DRIVE AND ANY CONTINUOUS 
CHECK FORMS 

SEND CHECK OR MONEY ORDER TO 

XEIMTECH 

P.O. BOX 220218. EL PASO, TX 79913 

VISA OR MASTERCARD CALL 

24 HOURS/DAY. SEVEN DAYS/WEEK 
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Advan BASIC 



♦FAST: Compiles programs. Many run 5 
to 20 times faster than in ATARI BASIC 

♦POWERFUL: Real, integer, and string 
arrays and variables. Only arrays are 
dimensioned. IF THEN ELSE, REPEAT, 
WHILE, CASE, and multi-line IF commands. 
Functions and subroutines with up to 4 
arguments. 8 PM commands let you define 
and insert figures into PMs, auto, move 
them horizontal &/or vert, at rates you 
specify, & even auto, change PM figures 
for animation effects. 3 sound commands. 
You can set up and auto, play tunes. 
Built-in assembler. RAMDISK for 130XE. 

♦EASY TO USE: Programs entered and 
edited as in ATARI BASIC. English 
error messages. KILL, RENAME, and 
DIR built into BASIC. 

♦ONLY $49.95. Includes backup disk, 119 
page manual, & program which converts 
many ATARI BASIC programs to Advan 
form. Needs I disk drive & 800 XL/XE 
or 48K 400/800. Free shipping in N.Amer 
$3.00 outside N.Amer. VISA/MC accepted 

"spectacular... .an expanded BASIC with 
powerful new commands...brilliant work 
...send away for your copy today. You 
will not regret it. " ANTIC magazine 

ADVAN LANGUAGE DESIGNS 

Box 159 Baldwin, KS 66006 

(9I3)-594-3420 

ATARI is a trademark of ATARI, Inc. 
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THE END 
USER 



THIS MONTH: 

Books for the 
Atari 8-bit user, 
print helpers, 
disk copiers 
and some trivia 



Arthur Leyenberger is a human fac- 
tors psychologist and free-lance writer 
Jiving in New Jersey. He has been an 
Atari enthusiast for /our years. When not 
computing, he enjoys playing with ro- 
botic toys. 



by Arthur Leyenberger 

The 8-bit Atari computers have been 
around now for about six years. In that 
time, thousands of users have learned 
there's a lot of computing power under 
the hood of the 400/800, XL and XE 
computers. These Atari computers were 
ahead of the pack when they were 
introduced — and still are, compared to 
the competition. 

Although it seems fewer and fewer ti- 
tles are being published for the 8-bit 
computers, the successful 1985 Christ- 
mas buying season has led some pub- 
lishers to rethink their positions. 

With more and more Atari computers 
being purchased, there are a greater 
number of potential software buyers. 
Moreover, a trend can be observed in the 
software becoming available. Program- 
mers are pushing the envelope on the 
capabilities of the 6502 microprocessor, 
leading to better software for users. 

One thing occasionally overlooked by 
many software publishers, users groups 
and, yes, even this column, is that there 
are new Atari users continually seeking 
information on their computers. These 
new users want to know what the good 
programs and useful books are, and , in 
general, how they can best learn about 
and enjoy their new trek: the Atari ad- 
venture. 

With new users in mind, this month's 
End User is devoted entirely to the 8-bit 



Atari computers. I hope the information 
presented here helps you to get the most 
out of Atari computing. 

The 8-bit Atari booltslielf. 

Whether you're new to Atari comput- 
ing or have been at it for a while, there 
are several books that have become clas- 
sics in the Atari realm. Any or all of 
these books belong on your Atari book- 
shelf and will provide the information 
to make the most of your computer. 

Your Atari Computer by Poole, McNiff 
and Cook (Osborne/McGraw-Hill, 2600 
Tenth Street, Berkeley, CA 94710 $20) 
is the number one reference for Atari 
users. This invaluable guide provides in- 
formation on hardware, peripherals and 
software, in an easy, readable format. 
There are chapters on graphics and 
sound capabilities, plus a BASIC tutori- 
al. In addition, the reference section of 
the text is the most informative to be 
found anywhere. 

The appendices alone are probably 
worth the price of the book. They in- 
clude material on memory usage, error 
messages, functions, PEEK and POKE 
locations, and conversion tables. Numer- 
ous programs and examples abound to 
reinforce the written material. 

The "Purple Book," as it's affection- 
ately called, has recently been updated 
to include information on the XL line of 
computers. The Atari XEs are function- 
ally equivalent to the XL machines, so 
that this book provides complete infor- 
mation for all Atari 8-bit models. 
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ATARI 800XL 




Order No. AAB800XL "See disclaimer beiow 



ATARI 400 




$2999 

Order No. AAB400 "See disciaimer beiow 



LAST 

CHANCE 

SPECIAL 



ATARI 130XE 



V.VW 



2 Frae Programs 
Our Cho/ce 



Order No. 
AA130XE 



$13900 



ATARI 65XE 



/m:m'\i 



2 fr«e Program* 
Our Cfio/cs 



Order No. 
AA65XE 



$89^9 



COMREX 220AT 
PRINTER 




ATARI 1050 
DISK DRIVE 

DOS 3.0 Included 



INDUS GT 
DISK DRIVE 



Order No. 
EP220A 



$89^9 





Order No. 
AA1050 



$-12900 



Order No. 
lADD 



$19900 



AXLON 
CLOSE-OUT 

C.M.O. Exclusive 

32K RAM Boards..^29®® 

48K RAM Boards..^39®® 

128K RAM Disk^l 19®® 
We bought the entire 
inventory from Axlon! 



Order No. 
AA850 



ATARI 850 
INTERFACE 
$12900 



ATARI 1020 
COLOR PRINTER 

$2999 



Order No, 
AA1020 



Digital Devices 
APEFACE 

PRINTER INTERFACE 
$4999 



ATARI 835 

DIRECT CONNECT 

MODEM 



Order No. 
DDA01 



ICD P:R 
CONNECTION 



Replaces Atari 850 Interface 



Order No. 
ALICPR 



$5999 



ATARI 1027 
LQ PRINTER 

$11900 



Order No. 
AA1027 



ATARI 
ARCADE CHAIMP 
$999 

Order No. AA7102 



Order No. 
AAB835 



$2999 



*See disclaimer below 



Includes: 

• Pac Man • Qix 

• ROM holder 



SUPRA MODEM 
Model 1200AT 

$18990 



Order No. 
SJ1200AT 



MINDSCAPE 

Fun Learning Software 

TONK IN THE LAND OF BUDDY BOTS 
TUCK GOES TO TOWN 
TINK'S ADVENTURE 
TINKA'S MAZES 



YOUR 
CHOICE 



$799,.. 



ROCKLAN Game Carts 



GORF 

WIZARD OF WOR 

SPACE JOURNEY 

JOURNEY TO PLANET 

RACK-EM-UP 

DIAMOND MIND 



YOUR 
CHOICE 



$399 



ea. 



DISKETTES 

ELEPHANT SVa" SS/SD(10), No. ELI »11»» 

MAXELL 5V4" SS/SD(10), No. MXD1 »11»» 

GENERIC w/Flip'n File(10), No. NT03 »11" 

AMARY 5Vi" Disk Tub, 50 capacity »9" 



AVALON HILL 
GAME DISKETTES 



CONFLICT 2500 
STOCKS AND BONDS 
GUNS OF FORT DEFIANCE 
FOOTBALL STRATEGY 
GFS SORCRESS 
MARKET FORCES 
FACTS IN FIVE 
LEGIONAIRE 
SPACE STATION ZULA 



VORRAK 
GYPSY 
TGIF 
DIVEX 



YOUR CHOICE 



$399 



ea. 







CALL TOLL-FREE 1 -800-233-8950 

477 East Third Street, Dept. B706, Williamsport, PA 17701 

POLICY: Add 3% (Minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to clear. For faster delivery 
use your credit card or send cashier's check or bank money order, Pennsylvania residents add 6% sales tax. All prices are subject to change and all items are subject to availability. 
Defective software will be replaced with ttie same item only. Hardware will be repaired or replaced at our discretion within the the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and retumed shipments are subject to a restocking fee. 

DISCLAIMER; Close-out equipment are reconditioned units tfiat do not tiave manuals. Close-out software may or may not contain instructions and may not 
be in original packing, 15 day excfiange only warranty. 



<k 



1-800-268-3974 

Ontario/Quebec 



1-800-268-4559 

Other Provinces 



— CANADIAN ORDERS — 

All prices shown are tor U.S. A orders 
Call the Canadian Office tor Can. prices. 



1-416-828-0866 

In Toronto 



T*l«x:06-218960 

2505 Dunwin Drive, 

Mississauga. Ontario 

Canada L5L1T1 
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Another Atari-specific book that's a 
"must have" reference is published by 
The Book Company. The Book Compa- 
ny was bought out by Arrays, then Haba 
took it over. Nevertheless, The Atari 
User's Encyclopedia by Gary Phillips 
and Jerry White is an up-to-date compi- 
lation of facts and information about the 
Atari 8-bits. Everything from BASIC to 
Action! is discussed in this reference 
work. 

The Encyclopedia gives alphabetical 
entries by subject. These include des- 
criptions of programming languages, 
one-paragraph summaries of software, 
and listings of publications and user 
groups. Since this book is about two 
years old, some user groups and publi- 
cations may no longer exist. 

There's also a BASIC tutorial at the be- 
ginning of the book, complete with pro- 
gram listings and explanations. Al- 
though Jerry White has not been prom- 
inent within the Atari community in the 
last couple years, he is/was considered 
one of the best Atari BASIC program- 
mers. 

The 267-page Atari User's Encyclope- 
dia costs $20, from The Book Compa- 
ny, 11223 S. Hindry Avenue, Los Ange- 
les, CA 90045. It's a valuable resource. 

I've taught several courses in Atari 
BASIC over the years, using a variety of 
texts. The best Atari BASIC book I've 
found is Basic Atari BASIC by Jim Coan 
and Richard Kushner. This $15 book, 
published by Hayden Book Co. , 10 Mul- 
hoUand Drive, Hasbrouck Heights, NJ 
07604. has been extensively rewritten to 
include Atari-specific information on 
such subjects as XL graphics modes 12 
through 15, sound and player-missile 
graphics. 

Richard Kushner, a long-time Atari 
user, is responsible for the detailed, 
highly accurate information contained 
in this book. If you want to learn Atari 
BASIC, this is the book to use. 

The fourth book that belongs on ev- 
ery Atari user's bookshelf is a little more 
technical than those previously men- 
tioned. Mapping the Atari, Revised Edi- 
tion by Ian Chadwick (from COMPUTE! 
Books, P.O. Box 5406, Greensboro, NC 
27403) is a reference you'll often use, but 
one you probably won't read from cov- 
er to cover. 

It provides a complete and compre- 
hensive guide to the memory locations 
in all of the Atari 8-bit computers. Al- 
though some of this information is avail- 
able from other sources, no previous col- 



lection has provided complete cross 
references, detailed explanations and a 
tutorial approach to the topic. 

The cross referencing alone is superb, 
and the amount of information con- 
tained in this volume is unbelievable. 
Three separate index are provided: by 
subject, label and XL/XE. In addition, 
DOS 2.5 is explained, a patch program 
is given to convert Basic Revision B to 
Revision C and XL/XE enhancements 
are described. Further, the XL/XE par- 
allel bus is explained, complete with 
pinout descriptions. The XL/XE graph- 
ic modes are discussed and memory 
management on the 130XE is thorough- 
ly analyzed. 

There is no question about it, Ian 
Chadwick's Mapping the Atari, Revised 
Edition is well worth the price. Add it 
to your Atari 8-bit library and you'll use 
it for years to come. 

There's another book that makes in- 
teresting reading, but is more on the 
philosophical than the technical side. 
The Art of Computer GaTr[e Design by 
Chris Crawford (Osborne/Mc-Graw Hill, 
2600 Tenth Street, Berkeley, CA 94710, 
$20) is a work that will have you reach- 
ing for your thinking cap. In this book, 
Crawford emphasizes the artistic dimen- 
sion of computer games. In this way, he 
reveals game design as a creative pro- 
cess, rather than merely a technical one. 

If you're new to Atari computing, the 
name Chris Crawford may not mean 
much to you. Until about two years ago, 
he was Atari's chief game designer and 
manager of research. His major work. 
Eastern Front (1941), is an exceptional- 
ly complex war simulation of the Ger- 
man invasion of Russia. Not only is the 
game itself excellent, but Chris pro- 
grammed a number of innovations into 
it, which were later widely imitated. 

Art of Computer Games Design is 
must reading for anyone interested in 
war games specifically, or game design 
in general. Even if you just like to play 
games, this book reads more like a nov- 
el than non-fiction. 

Print Shop delight. 

There's no question that The Print 
Shop from Broderbund Software is an 
excellent program — and one of the hot- 
test of the year. The way it takes you 
through the creation of greeting cards, 
signs, banners and whatnot exemplifies 
a friendly program. However, infre- 
quently you'll wish it had just a few 
more features. 

Because of the file format used by The 



Print Shop to store icons (graphics), 
there's no way you can access them from 
DOS. You can't list them, rename them 
or look at them in any way, unless you 
do it from within the program. Fortun- 
ately, a couple of utility programs to do 
this and more have been written by Tom 
Pazel of Rockaway, New Jersey. 

The first program is the Print Shop 
Graphics Library Utility. It does four 
things that can't be done any other way. 
First, you can get a printed, alphabetic 
list of the graphic names on any disk. 
Second, you can rename any graphic on 
any disk. 

Third, you can obtain a printout of the 
actual icons on a disk, twenty per page, 
alphabetized and with the name under 
each one. Fourth, you can selectively 
display any graphic. 

Tom's other program is a utility to con- 
vert Print Shop graphic files to Visualiz- 
er (by Maximus) format files. Any Print 
Shop graphic can be placed anywhere 
on the screen, and saved to a Visualiz- 
er file. 

Rather than sell these useful utility 
programs, Tom has placed them in his 
local user group's disk library. Both are 
obtained for $8.00 (postage included), 
by sending a check or money order to the 
Jersey Atari Computer Group, Print Shop 
Utilities, P.O. Box 356, White House Sta- 
tion, NJ 08889. 

Tom Pazel's programs demonstrate 
several important things. The most im- 
portant: belonging to a Atari user group 
is worthwhile. There's a lot of program- 
ming talent around — very knowledge- 
able people who have no aversion to 
writing a program to serve a particular 
need that isn't being met. Another im- 
portant point is that Atari user group 
members share. They share knowledge, 
ideas, programs and good will. 

Next to a subscription to ANALOG 
Computing, there's no better single way 
to get the most from your Atari compu- 
ter. Join a user group and let the adven- 
ture continue. 

I want to thank Bill Martin and the 
JAGG for making these programs avail- 
able to the readers of ANALOG Comput- 
ing. Sharing information is what Atari 
computing and this column are all 
about. 

How about you other user groups out 
there? Got any interesting home-grown 
software that does something useful? 
Something that no commercial product 
does well — or even at all? If you do, by 
all means let me know about it. 
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THE END USER continued 



Trivial pursuit. 

Atari has produced a number of com- 
puters since 1979, starting with the revo- 
lutionary 400 and 800, then the not-so- 
revolutionary 1200XL (almost followed 
by the 1450XLD), then the 800XL, 65XE 
and 130XE. During the course of the de- 
velopment of these, the machines were 
referred to by code names inside the 
company. Do you know what the code 
names where and what they were typi- 
cally based on? The answers are at the 
end of this month's column. 

Faster disit copies. 

If you have an Atari 130XE, you can 
take advantage of the full 128K memo- 
ry when making disk copies. Newell In- 
dustries, a name not unfamiliar to Atari 
users who've been around for a while, 
has a new sector copier program that 
will make a complete copy of the disk 
in one pass. Of course, if your disk has 
a larger capacity than 108K (more than 
a standard Atari disk), multiple passes 
will be required. 

Called the 130XE Sector Copier, this 
program was designed specifically for 
the 130XE. It supports both single- and 
double-density disk drives, up to 2880 
sectors per disk. In addition to copying 
the disk, this program will automatically 
format it for you, if you'd like. 

The 130XE Sector Copier will work 
on one- or two-drive systems. It should 



be pointed out that this program will not 
copy disks that have been copy protect- 
ed. This utility is meant primarily for 
copying DOS disks and making backups. 
For information on the Copier, contact 
Newell Industries, 3340 Nothingham 
Lane, Piano, TX 75074, (214) 423-1781. 

Errata Dept. 

I pride myself on ensuring that the in- 
formation appearing every month in The 
End User is as accurate as I can poss- 
ibly make it. However, an occasional 
misstatement finds its way into print. 
When that happens, I try to get the cor- 
rect information to you, as soon as pos- 
sible. 

Rick Detlefsen, Austin User Group 
newsletter editor, recently informed me 
of an oversight in the issue 35's End 
User. 

Rick points out that I had incorrectly 
said that SpartaDOS was the only 8-bit 
DOS to allow subdirectories. MYDOS, 
from Wordmark Systems, has been 
around for several years and has also, for 
the last several months, supported sub- 
directories. 

In addition, MYDOS works with 
high-capacity disks, 5-inch and 8-inch 
drives (with the ATR 8000), and the Ax- 
lon and XE ramdisks. For more informa- 
tion, send a stamped, self-addressed 
envelope to: MYDOS, 8207 Briarwood 
Lane, Austin, TX 78758. MYDOS sells 



for $18.00. Thanks for the information. 
Rick. 

Also, I realized — too late — that Re- 
gent Words's price was printed as $40 
in the ST-Log article on word processors 
last month (issue 42 of ANALOG Com- 
puting, issue 2 of ST-Log). The program 
is actually selling for $50. 

Trivial answers. 

The engineers and designers working 
on the next generation Atari computers 
typically used the name of one of their 
secretaries as a machine's code name. 
The Atari 400 was nicknamed Candy, 
the 800 was codenamed Colleen, the ill- 
fated 1450 was dubbed Sweet 16, and 
the 800XL was called Sally. I don't know 
the names of the XE computers or the 
1200XL. 

Also, a mysterious computer which 
was to have three processors (6502, Z80 
and 8088) was nicknamed Sierra. This 
was the last machine under development 
by James Morgan, and was to run Atari, 
CP/M and MS-DOS programs. It never 
saw the light of day. 

The End. 

That's it for this month's End User. 
Next month, I'll have more 8-bit com- 
puter information, as well as some ex- 
citing news about products for the Atari 
ST. Until next month, stay loose, fl 
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Boot 
Camp 



by Karl E. Wiegers 



Several recent Boot Camp installments have ex- 
plored the many useful functions performed by the 
8-bit Atari's Central Input/Output (CIO) system. Most 
recently, we saw how to use CIO to create text and 
graphics displays on-screen. 

In future issues, our discussion of graphics will 
continue in earnest. Look forward to explanations of 
how to: create mixed-mode graphics displays; use dis- 
play list interrupts to get many colors on-screen at 
once; use player/missile graphics; move your players 
around the screen with a joystick; create scrolling 
displays; and perform other wondrous feats in assem- 
bly language programs. 

This month's topic is a bit different. A little-known 
section of the Atari operating system (OS) is the float- 
ing point arithmetic package. It may be terra incog- 
nita to you, but you've taken advantage of its presence 
every time you added two numbers together in a BA- 
SIC program. 

Integer vs. floating point. 

The 6502 microprocessor in the Atari can perform 
numerical operations only on integers. For example, 
the instruction set for the 6502 contains op codes for 
integer addition (ADC) and subtraction (SBC) . How- 
ever, many numbers used in computing — and the rest 
of the world — contain decimal points. They're "float- 
ing point" (FP) numbers, rather than integers. 



Since 1 byte of RAM can only contain values from 
to 255, we clearly need some special storage for- 
mat to represent floating point numbers. Also, we 
require some special subroutines to execute mathe- 
matical operations with our FP numbers. These oper- 
ations include both simple arithmetic (addition, 
subtraction, multiplication and division) and more 
complex functions like logarithms, exponentials and 
trigonometric functions. 

Let's think about BASIC for a minute. Atari BA- 
SIC has only two kinds of variables: numeric and 
character. Many other versions of BASIC possess 
different types of numeric variables. One is integer; 
another is FP. The integer variables tj^ically occupy 
2 bytes of memory. This permits a range of unsigned 
values from through 65535 or signed integers from 
-32767 through +32767 

There is no integer data type in Atari BASIC. All 
numbers used by Atari BASIC are stored in a float- 
ing point representation requiring 6 bytes of storage 
per number. This means that even a simple constant 
like 1 takes up a full 6 bytes every time it appears 
in a program. 

Not only does this eat up memory quickly, but the 
increased complexity of FP arithmetic takes much 
more execution time than do calculations with in- 
tegers. This is one reason why the Atari has a repu- 
tation as a v-e-r-y s-l-o-w computer, when it comes 
to number crunching. However, we're stuck with the 
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design, so let's see how to work with it in assembly 
language programs. 

Now to refresh your memory a bit . . . Imagine that 
we wish to add two 2-byte integers in an assembly 
program. The numbers are stored in typical low-byte, 
high-byte fashion. Suppose that one number is in lo- 
cations $0600 and $0601, the second in $0602 and 
$0603. We wish to add these and place the result in 
locations $0604 and $0605. The following code does 
the job: 



CLC 
LDA 
ADC 
STfl 
LDA 
ADC 
STA 



$0680 
$0602 
$0604 
$0681 
$8683 
$0685 



Now let's see how floating point numbers are 
stored — and how to add a couple of them together. 
The details of FP representation aren't required 
knowledge to do calculations, so feel free to skip the 
next section if it looks too unappetizing. 

FP storage format. 

I mentioned earlier that all numbers in Atari BA- 
SIC occupy 6 bytes of storage, in floating point form. 
We need to use this same format for all FP numbers 
we handle in assembly language. 

As an example, consider how the number 63298.47 
is stored in Atari FP representation. First, recall that 
any FP number can be depicted in "scientific nota- 
tion." This involves writing the number with just one 
digit to the left of the decimal point and multiply- 
ing the result by 10 raised to a power equal to the 
number of places we had to shift the decimal point. 
Ovir candidate would thus be shown as 6.329847* 
10**4. 

The Atari uses a slight twist on the scientific no- 
tation principle. You need to write your nmnber with 
either one or two digits to the left of the decimal 
point, and multiply it by 100 (not 10) raised to the 
appropriate power. In our case, we're already set: 
6.329847*100**2. 

Notice that our FP number now consists of two 
parts. The number itself, with the decimal point 
properly positioned, is called the "mantissa." The 
power to which 100 is raised is called the "exponent." 
The 6-byte FP representation uses the most signifi- 
cant byte for the exponent and the remaining 5 bytes 
for the mantissa. 

The exponent byte is equal to $40 plus the value 
of the exponent. In our case, $40+$02=$42. (It gets 
trickier for negative numbers, but I'll skip that as- 
pect.) The 5 mantissa bytes contain the digits of the 
number stored as binary-coded decimal, two digits 



per byte. Think of the 6 before the decimal as an 06, 
and we're all set. Here's the full Atari floating point 
representation, in hexadecimal, of our decimal num- 
ber, 63298.47. 

42 86 32 98 47 88 

This storage format can handle numbers ranging 
in magnitude from 10** -98 to 10** + 98, with nine 
or ten digits of accuracy. The computer will keep 
track of all this stuff for you, but perhaps you can 
use this information in a trivia game sometime. 

The floating point routines. 

Let's think about the various functions our float- 
ing point package must be able to carry out. Table 
1 lists most of the ones that exist. These are all sub- 
routines, called by a JSR instruction. The table shows 
the symbolic name given to each routine and the hex- 
adecimal address of the entry point to the routine. 
This is the address to which the JSR instruction must 

go- 
All these routines reside in the OS ROM, except 
for the functions SIN, COS, ATAN and SQR. These 
are located in Atari BASIC. BASIC must be available 
any time you want to access these functions; plug 
in your BASIC cartridge on the old 400 and 800 
models. 



FLOATING POINT ROUTINES IN THE ATARI OS 


NAME 


ADDRESS 


FUNCTION PERFORMED 


AFP 


$0800 


Convert ATASCII string in LBUFF to FP 
number in FRO 


FASC 


$D8E6 


Convert FP number In FRO to ATASCII string 
in LBUFF 


IFP 


$D9AA 


Convert integer number in FRO to FP num- 
ber in FRO 


FPI 


$D9D2 


Convert FP number in FRO to integer num- 
ber in FRO 


FSUB 


$DA60 


FRO = FRO - FR1 


FADD 


$DA66 


FRO = FRO + FR1 


FMUL 


$DADB 


FRO = FRO * FR1 


FDIV 


$DB28 


FRO = FRO / FR1 


EXP 


$DDCO 


FRO = e ** FRO 


EXP10 


$DDCC 


FRO = 10 ** FRO 


LOG 


$DECD 


FRO = natural (base e) logarithm of FRO 


LOG10 


$DED1 


FRO = common (base 10) logarithm of FRO 


SIN 


$BDA7 


FRO = SIN(FRO) (in BASIC) 


COS 


$BDB1 


FRO = COS(FRO) (in BASIC) 


ATAN 


$Bb77 


FRO = ATAN(FRO) (in BASIC) 


SQR 


$BEE5 


FRO = SQR(FRO) (in BASIC) 


FLOOR 


$DD89 


Load FRO from memory using X and Y 
registers 


FLD1R 


$DD98 


Load FR1 from memory using X and Y 
registers 


FSTOR 


$DDA7 


Store value in FRO from memory using X 
and Y registers 


FMOVE $DDB6 


Move FP number from FRO to FR1 


ZFRO 


$DA46 


Set all 6 bytes of FRO equal to 



Table 1. 
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Besides these addresses for the FP subroutines 
themselves, two other 6-byte blocks of page RAM 
are used as working locations (or registers) for FP 
computations. These are called FRO ($D4J and FRl 
[$E0). Now, what exactly should an FP package do 
for us? 

First, consider that any data entered using CIO is 
just a string of characters. The number 63298.47 is 
just an 8-byte string. We need a routine to convert 
such a string of numeric ATASCII characters into an 
FP number, so we can do arithmetic with it. 

The first entry in Table 1, AFP, does the trick. Con- 
versely, we must be able to transform an FP number 
(stored in the bizarre format I described earlier) into 
an ATASCII representation suitable for output. Hence, 
routine FASC. Procedures are also required to con- 
vert 2-byte integer numbers into FP numbers (IFF) 
and vice versa (FPI). 

Oh yes, arithmetic. How about some routines to 
perform your basic floating point subtraction (FSUB), 
addition (FADD), multiplication (FMUL) and divi- 



sion (FDIV)? Notice from the table that each of these 
operations requires the two FP numbers being pro- 
cessed be present in FP work registers FRO and FRl. 
The answer always winds up in FRO, but FRl gets 
altered during the process, so don't ever try to use 
it again after an operation. 

Some less common kinds of mathematical opera- 
tions also have counterparts in the FP package. These 
include the aforementioned trigonometric procedures 
SIN, COS and ATAN (sine, cosine and arctangent), 
plus the square root function SQR. In addition, ex- 
ponentials and logarithms can be taken, in either 
natural (base e) or common (base 10) form. These 
routines are called EXP, EXPlO, LOG, and LOGlO. 

Naturally, any good software package needs some 
utility-type capabilities. The FP package has routines 
to load FRO and FRl with an FP number stored some- 
where else in memory (FLDOR and FLDlR). Of 
course, we often need to move an FP number from 
register FRO out to another 6-byte storage location 
in RAM, and FSTOR does the trick. 



ATARI* HARDWARE & SOFTWARE BONANZA 

CALL TOLL FREE 1 800 551 9995 CALL TOLL FREE 1 800 551 9995 



800/400 MODULES 

NEW PARTS COMPLETE WITH IC'S 
3^% 50 



lEA. 



All Modules 

Completfl 

with 

IC'S 



• 800 Main Board 
•800/400 CPU with GTIA 

• 80010K"B" OS. Module 

• 16KRAM CX8S3 

• 400 Main Board 

• 800 Powef Supply Board 

• 800XL Modulator 



INTEGRATED CIRCUITS 



810 MODULES 

810 Side Board $29.50 

810 Side with Data Sep . . $39.50 

810 Power Board $15.00 

810 Analog Board $10.00 

Data Separator $12.50 

MISC. HARDWARE 

256K UPGRADE BOARD 

ForSOOXL $88.00 

w/oFlAMIC's $58.00 

C021697 $13.50 

Fastchip for 800/400 . . . .$17.50 

1030 Modem $57.50 

Numeric Keypad $15.00 

1050 FDC 2793 $19.50 

BOARD SETS 

600 4 PIECE BOARD SET 

Includes 600 Main. CPU, 10K ROM, 
and Power Board $28.50 

810 Board Set 

Sideboard v#SeparalDr,Flear Power and 
Analog Boards $57.50 

POWER PACKS 

Replacement Transformer tor 
800/400, 810, 1050. 1200XL. 

1020 $14.50 

800XL/600XL, 

1 30XL Power Supply . . . $25.00 
1027 Translormer $25.00 

Mail Order and Repair 15338 Inverness St., San Leandro, CA 94579 

Business Address . . . .* 1988 Washington Ave., San Leandro, CA 94577 

NO MINIMUM ORDER! We accept money orders, personal checks or C.O.D.s. 
VISA, Master/Card okay. Credit cards restricted to purchases over $20.00, No 
personal checks on C.0,0. - Shipping: $4,00 shipping and handling on orders under 
$150,00. Add $2,00 for C,0,D. orders, California residents include 6'/i% sales tax. 
Prices subject to change without notice. 
Much more! Send SASE for free price list, 

'Atari IS a registered trademarit of Atari Corp. 



S4': 

• Antic . C012296 

• Pokey C012294 

• PIA C014795 

• CPU . ..C014806 



• CPU. 
•CPU. 

• PIA . 

• ROM 

• ROM 

• ROM 

• GTIA 

• Delay 



. C014337 
. CO10745 
. CO10750 
. C012399B 
.C012499B 
. C014599B 
. CO14805 
. CO60472 



DISK DRIVE 

CUSTOM 810 DRIVE 

Fully operational 810 mounted on acrylic 
Includes 

$ 



base. No case, 
power supply. 



95 



I/O cable and 
00 



AMERICAN TV 



MANUALS 

SAM'S Sen/ice Manuals lor 800 or 400 

orSGOXL $19.50ea. 

DeReAtari $12.50 

Inside Atari Basic $ 5.00 

Pilot Primer $ 5.00 

650 Operators Manual . . . .$15.00 

BARE BOARDS 

850 Interface Board $10.00 

Includes Parts List, Instructions, 

810 Rear Board $ 1.00 

810 Analog Board $ 1.00 

CONNECTORS 

I/O 13PIN PC Mount $ 4.50 

I/O Cable Plug Kit $ 4.50 

30 Pin Can. Socket $ 4.50 

EDITOR/ASSEMBLER 

Editor/Assembler Cartridge 

Write your own High Speed 6502 

Machine Lartguage Programs. 

Written by Atari. Works with all Atari 

Computers except St. 

Manual Included $15.00 

BASIC CARTRIDGE 

Basic Rev. "A" Cartrklge works with 
all Atari Computers except ST. 
Includes manual. 

800XL Owners Note! Use this Cart- 
ridge while programming to elimi- 
nate the severe errors in the Built- 
in "B" Basic $10.00 



SOFTWARE 

O.S.S Action $68.00 

O.S.S. Mac/65 $68.00 

OS.S Basic XE $68.00 

O.S.S. Basic XL $48.00 

ST-M-Disk $35.00 

ST-Easy-Draw $109.00 

ST-O.S. Pascal $68.00 

ST-Basic Compiler $79.00 

Donkey Kong Cart. $5.00 

Pac-Man Cailridge $5.00 

Eastern Front Catl. $5.00 

Buck Rogers Cart $5.00 

Crossfire Cart $5.00 

Chicken Cartridge $5.00 

Picnic Paranoia Cart .... $5,00 

MrCoolCart. $5,00 

Clown & Balloon Disk .... $5,00 

Stralos Disk $5,00 

Serpentine Disk $5,00 

Lymbryntti Disk $5,00 

Magneto Bugs Disk $5,00 

The Factory Disk $5,00 

The Pond Disk $5.00 

Missile Command $5.00 

Defender Cart $5.00 

Spanish Lessons $7.50 

Basic Cartridge $10.00 

Edtor Assembler Cart $15.00 

Q'Bert Cartridge $10.00 

Popeye Cartridge $10.00 

Kindercomp Cart $10.00 



CALL TOLL FREE 
1-800-551-9995 



SERVICE RATES 

Rjt Senlce Ratit below In- 
clude Parti i Labof, 60-Day 
Warranty 

800 $39.50 

850 $39.50 

600XL $49.50 

1200XL $49.50 

810 $69-50 

800XL $49,50 

1050 $85,00 

800 Keyboard Repair .... $25.00 
Above units repaired or exchanged 
with rebuiktaUe exchange. Include 
$7.00 return shipping and insurance. 

10K Rev. "B" O.S. Upgrade 

for older 800/400's 
End printer/disk drive timeouts and 
OTHER ERRORS. Many new programs 
require Rev, B, Type the folk>wing 
peek in Basic to see if you have 
Rev 8. PMNT PEEK(5l]i3). If the 
result equals 56 you have the okl 
OS, Tint CMa MM Ml DM IR- 
itiwtiMi . . , . $7.50. Ce m ali U 10K 
Rtv. B MMt $*.S0 

GTIA Upgrade For BOO/400 

Add additional graphics modes and 
make your older computer com- 
patible with the latest software. 
htlncllMi li nM id (4.50 

BIO Drive Upgrade 

Greatly improve the performance of 
your older 810 Stabilize the speed 
with the addition of an anakig and 
redesigned rear board. 

. . $ 27.S0 



IN CA CALL 
415-352 3787 



CIRCLE #155 ON READER SERVICE CARD 
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FMOVE copies the number in FRO into FRl. Fi- 
nally, ZFRO zeroes all 6 bytes of FRO in one quick 
step. This is a good practice whenever you aren't quite 
sure what kind of junk is left over in FRO. 

Example 1. — FP addition. 

Think back to the example of adding a pair of 
2-byte integers we saw a little earlier. It only took sev- 
en lines of assembly code to do the job. Listing 1 
shows how we do the same sort of thing in floating 
point. It's a lot more work to set up, but the actual 
calculations fall into place pretty readily. 

We begin with two integer numbers that we must 
convert into their FP representations, add, then store 
the result someplace convenient in RAM, where we 
can examine it using the debugger. 

The numbers we wish to add together are called 
NUMl and NUM2. Lines 100-110 set these to deci- 
mal 372 and 145, but you can try other values if you 
like. These numbers are stored in 2-byte locations 
labeled INTl and INT2. Lines 280-350 split our num- 
bers into high- and low-byte portions, and store them 
safely away. 

Step 2 is to zero the FP work register FRO with a 
call to subroutine ZFRO in Line 360. Next, move one 
of our integers into the first 2 bytes of FRO, accom- 
plished in Lines 370-400. The subroutine call in Line 
410 to routine IFP converts this into an FP number, 
still in FRO. 

Now move the result into the second FP work reg- 
ister, FRl, with the help of routine FMOVE (Line 
420). After zeroing FRO again, move the second in- 
teger into the first 2 bytes of FRO (Lines 440-470). 

Another call to IFP sets us up with FP numbers 
in both FRO and FRl. A peek at Table 1 shows that 
we can add these two together and find the result 
in FRO with a JSR FADD instruction (Line 490). 

We really don't want the result to stay in FRO. I de- 
fined a place for it in Line 160, where FPANS is the 
first byte of a 6-byte block that can hold any FP num- 
ber. To execute the transfer, load the 6502's X-register 
with the low byte of the destination address and load 
the Y-register with the high byte. Lines 500 and 510 
accomplish this. Finally, a call to routine FSTOR 
moves all 6 bytes at once (Line 520) , and we're done. 

Enter Listing 1, assemble it, enter the debugger, 
and run the program with a G5000 command. To ex- 
amine the results, display memory from $0600- 
060F. With the Atari Assembler-Editor cartridge, a 
D600,60F command puts the following display on the 



screen: 



8600 
0608 



74 01 91 00 08 80 00 00 
41 05 17 00 08 88 00 00 



Bytes $0600-$0601 contain the hexadecimal val- 
ue of NUMl in low-byte, high-byte form. That is, dec- 
imal 372 equals hex $0174. Similarly, decimal 145 
(hex $0091] is stored in bytes $0602-$0603. As it hap- 
pens, 372 + 145 = 517. 

The floating po'int representation of decimal 517 
is located in bytes $0608-$060D. Can you predict the 
contents of these bjrtes from the discussion of FP stor- 
age format above? 

Example 2. — Loan payment calculations. 

Once upon a time, I wrote a BASIC program to cal- 
culate the monthly payment required to amortize a 
loan with a given initial principal, annual percent- 
age rate of interest and term in months. It then oc- 
curred to me that the steps involved in this calcula- 
tion provided an excellent illustration of many of the 
floating point routines listed in Table 1. 

The BASIC statements you would use to calculate 
the monthly payment for a loan are: 

10 I«Pll=APR/1200 

20 PflV= (PRIII»IflPRJ / <1- ClflPH+lJ** C-TERH 

)) 

where APR is the annual percentage rate of interest 
(for eleven percent, enter 11, not 0.11], PRIN is the 
principal, TERM is the duration of the loan in 
months, and PAY is the monthly payment. 

Listing 2 performs these computations in assem- 
bly language. It will prompt you to enter the initial 
principal of the loan, the APR, and the term. Make 
all entries as just numeric digits with a decimal point, 
if needed. The monthly payment is calculated and 
displayed in dollars and cents (two decimal places) . 
Then, you can press RETURN to try another calcu- 
lation. To stop execution of the program, press the 
BREAK key several times in rapid succession, or 
press RESET. 

The equates list in Listing 2 contains: entries for 
CIO command operations (Lines 130-140); some con- 
stants used by the program (Lines 150-170); some ad- 
dresses needed by the FP routines (Lines 180-290); 
four 6-byte storage locations for the FP representa- 
tions of numbers used in the calculations (Lines 300- 
330); CIO addresses for screen I/O (Lines 370-420); 
and entry points for the FP routines used by the pro- 
gram (Lines 460-590). 

The biggest nuisance about assembly language pro- 
gramming is that you have to keep track of everything 
yourself. In BASIC, we could just create variables like 
PRIN, lAPR, DENOM and PAY out of thin air and 
think about them no further. 

When doing FP calculations in assembly, we need 
to consciously set aside a 6-byte block of RAM for 
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every number we wish to store. I've put mine in the 
ever-popular page 6, but you can put them in any safe 
place you like. 

BASIC has another talent we take for granted: the 
ability to decipher complex mathematical expressions 
and calculate the result. Since our available FP rou- 
tines only handle simple operations like division, we 
must first dissect a complex equation into a series 
of elementary steps. 

It helps your plarming to remember that the result 
of an operation winds up in register FRO, where it's 
ready for the next step immediately. I kept this in 
mind as I broke apart the equations needed to cal- 
culate a monthly payment. Now, let's walk through 
Listing 2 and see how it works. 

Lines 660-710 set up to print a prompt mes- 
sage for the user to enter the initial principal. 
The subroutine called WRITE is found in Lines 
2150-2240. It completes the CIO PUTREC oper- 
ation and displays the line on-screen. 

Line 720 calls subroutine INPUT, which re- 
sides in Lines 2460-2630. It uses the CIO GET- 
REC command to read a string of ATASCII char- 
acters from the keyboard and place them into a 
buffer called LBUFF. 

Line 730, since we can't do arithmetic with 
these characters, calls yet another subroutine, 
MAKEFF (Lines 2650-2800). MAKEFP converts 
the characters in LBUFF into a floating point 
number in FRO, using the AFP function in the 
FP package. 

If an error occurs during the conversion to FP, 
the carry flag in the 6502 status register is set. 
This would happen if, for example, you had a 
letter as the first character in LBUFF. (If the first 
character is numeric, then the AFP routine works 
until it encounters a character that caimot be part 
of an FP number, then it quits.) Hence, the BCS 
instruction in Line 2790 transfers control to the 
routine labelled AFPERR (Lines 2840-2920) to 
tell the user about the problem, accept another 
input line and try again. 

Now that we have the loan principal stored in 
FP form in FRO, we need to stash it safely in the 
6-byte storage location labelled PRIN. Lines 740- 
760 do the trick, using routine FSTOR to exe- 
cute the move (really, it's a copy; FRO does not 
change) . 

Lines 770-940 are equivalent to the simple BA- 
SIC expression shown in statement 10 a few para- 
graphs back. First, load the decimal integer 1200 
into the first 2 bytes of FRO, then call IFP to trans- 



form it to FP and, finally, call FMOVE to move 
the result into FRl. 

Next, input the value for APR just as we did 
for PRIN (Lines 840-890). We now have FRO= 
APR and FRl = 1200, so a call to FDIV (Line 900) 
will give us the result we seek in FRO. Lines 
920-940 store this result in lAPR. 

Some of the FP subroutines set the carry flag 
if a mathematical error occurs, such as division 
by zero. 

Line 910 illustrates the trap I set after many 
of the numerical FP operations for such errors. 
Because of the length of this program, I had to 
use a two-stage branch to get to the actual error- 
handling routine. The first branch is always to 
MTHERR (Line 1320), which forwards control 
on to routine BADMTH at Line 1730. An error 
message is printed, and you have to start the en- 
tire calculation over again. 
I won't explain every single statement in Listing 
2. By now, you see what I'm up to: input the neces- 
sary data and store in FP form; break the complex 
expression into bite-sized (no pun intended) pieces 
that can be processed by the available FP routines; 
transfer numbers among FRO, FRl and memory as 
necessary with the utility subroutines FMOVE, 
FSTOR, FLOOR and FLDIR, until the entire calcu- 
lation is complete. 

There are a couple of tricks I should explain. First, 
the denominator of the equation shown in BASIC 
statement 20 above is fairly complex. I decided to 
store the result of this calculation in an intermedi- 
ate FP variable called DENOM, rather than trying to 
keep track of everything in FRO and FRl. 

Second, there's no FP routine to directly perform 
the (lAPR +!)**(- TERM) operation, an exponentia- 
tion. I used a mathematical trick. We take the loga- 
rithm of (IAPR + 1), multiply it times (-TERM] and 
take the antilogarithm of the result, using the EXPlO 
routine. Most of the calculations you're likely to do 
won't require getting this creative. 

By the time we reach Line 1570, the monthly pay- 
ment has been calculated and stored in PAY. To show 
it on the screen, we need to do a little more work. 
Line 1620 calls subroutine OUTPUT, which wraps 
it all up in Lines 1820-2240. 

OUTPUT first converts the FP number in FRO (the 
payment) into an ATASCII string in LBUFF, using 
routine FASC. But LBUFF is 128 characters long, and 
we only want to show the characters up to the deci- 
mal point, plus two to the right of the decimal. The 
final interesting character in LBUFF from the FASC 
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conversion has the most significant bit (bit 7] set, so 
at least we can deduce where the resulting string ter- 
minates. 

Subroutine ADDEOL (Lines 2260-2440) scans 
through the characters in LBUFF until it finds one 
that's negative (bit 7 set) . This is our final byte. The 
routine then clears bit 7 of that final byte, advances 
1 more byte, and adds an ATASCII EOL (carriage re- 
turn) character, so that printing with the CIO PUT- 
REC command will stop at that point. 

Going back to Line 1890, the next few lines scan 
through LBUFF until a decimal point is located. 
Then it skips over the next 2 bytes, since we want 
to keep two places past the decimal (the cents part 
of the monthly payment) . Any remaining characters 
in LBUFF up to the EOL character are set to ATAS- 
CII blanks (decimal 32, hex $20), so they aren't print- 
ed. Finally, the answer is displayed on-screen in 
Lines 2100-2240. 

Conclusion. 

This has been a pretty heavy session, but now you 
know a lot about a part of the Atari OS you may never 
have heard of before. Next time, we'll get back to 
something a little less somber — the famous Atari 
graphics. H 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



Listing 1. 
BASIC listing. 

;Listing l for floating point 
;operations in assenbly language 

; convert two integers to FP 
;and add theH together 

.OPT NO LIST 



le 

20 
30 
40 
50 
60 
70 
80 
90 

eiod Num = 

Olio NUH2 = 
0120 FRO = 
0130 FRl = 
0140 INTl = 
0150 INT2 = 
0160 FPANS 
0170 IFP 



372 ;add these two 
145 ;nuHbers together 
$D4 ;2 floating point 
$E0 ;work registers 
$0600 ; store one int. 
$0602 ;and the other 
$0608 ; store FP answer 
$D9AA ; integer to FP 
$DA66 ;add 2 FP nuHbers 

;MOve FRO 

;Move FRO to FRl 

;zero FRO 



$DA44 



0180 FADD = 

0190 F5T0R = $DDA7 

0200 FMOVE = $DDB6 

0210 ZFR0 = 

0220 ; 

0230 ;set starting address 

0240 ; 

0250 »= $5000 

0260 ; 

0270 CLD ; binary Hode! 



0280 


LDA 


ttNUHlS255 ;put the two 


0290 


5TA 


INTl 


;nuHS we want to 


0300 


LDA 


ttNUMl/256 ;add into their 


0310 


5TA 


INTl+1 


; integer storage 


0320 


LDA 


ttNUM2&255 j locations 


0330 


5TA 


INT2 




0340 


LDA 


ttNUH2/256 


0358 


5TA 


INT2+1 




0360 


J5R 


ZFRO 


;set FRe=e 


0370 


LDA 


INTl 


;Move 1st nuMber 


0380 


STA 


FRO 


;into first two 


0390 


LDA 


INTl+1 


; bytes of fro 


0400 


STA 


FRO+1 




0410 


JSR 


IFP 


; convert to FP 


0420 


JSR 


FMOVE 


;Move it to FRl 


0430 


JSR 


ZFRO 


;set FR8=0 


0440 


LDA 


INT2 


;Move second 


0450 


STA 


FRO 


;nuMber into FRO 


0460 


LDA 


INT2+1 




0470 


STA 


FRO+1 




0480 


JSR 


IFP 


; convert to FP 


0490 


JSR 


FADD 


;-•' to one in FRl 


0500 


LDK 


ltFPANS&255 ; Store result. 


0510 


LDY 


ttFPANS/256 :FRO 


0520 


JSR 


FSTOR 


;in FPANS 


0530 

• 


BRK 




;all done 






Listing 


2. 




Assembly listing. 


10 ;Listing 2 for floating point 


20 n 
30 ; 

40 ;1 


iperations in asseMbly language 


rhis prograM allows you to input 


50 ;an initial principal, annual 


60 ;percentage rate. 


and terM in 


70 ; Months for a loan. It then 


88 ;calculates the Monthly payMent 


90 ;needed to aMortize the loan. 


0100 


9 






0110 


.OPT NO LIST 


0120 


m 
9 






0130 


GETREC : 


: $05 


; equates for Clo 


0140 


PUTREC : 


: $09 


;operations 


0150 


BLANK = 


$20 
= S2E 


; ATASCII blank 


0160 


DECIMAL 


;ATASCII period 


0170 


EOL = 


$9B 


;carriage return 


0180 


LENGTH : 


: $CB 


;teMp. variable 


0190 


FRO = 


$D4 


;the two FP work 


0200 


FRl = 


$E0 


;registers 


0210 


CIX = 


$F2 


;offset pntr to 


0220 




character of LBUFF 


0230 


f 


for AFP routine 


0240 


INBUFF : 


: $F3 


;2-byte pntr to 


0250 




text buffer used by 


0260 


f 


FA5C and AFP subs. 


0270 


LBUFF = 


$0580 


;128-byte buffer 


0280 






for FflSC Coutput) 


0290 


m 




and AFP (input) 


0300 


PRIN = 


$0600 


;RAM loc. for 


0310 


lAPR = 


$0606 


;FP variables. 


0320 


DENOH = 


$e60C 


;six bytes each 


0330 


PAY = 


$0612 




0340 








0350 


;CI0 addresses 


for lOCB no 


0360 








0370 


iccoM = 


$0342 


;coMMand byte 


0380 


ICBAL = 


$0344 


;buffer address. 


0390 


ICBAH = 


$0345 


;lo and hi bytes 


0400 


ICBLL = 


$0348 


;buffer length. 


0410 


ICBLH = 


$0349 


;lo and hi bytes 


0420 


CIOW = 


$E456 


;CI0 entry point 
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8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
8558 
8568 
8578 
8588 
8598 
8688 
8618 
8628 
8638 
8648 
8658 
8668 
8678 
8688 
8698 
8788 
8718 
8728 
8738 
8748 
8758 
8768 
8778 
8788 
8798 
8888 
8818 
8828 
8838 
8848 
8858 
8868 
8878 
8888 
8898 
8988 
8918 
8928 
8938 
8948 
8958 
8968 
8978 
8988 
8998 
1888 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1288 



;equates for FP routines 

AfP = $D888 ;ATASCII to FP 

Ffi5C = $D8E6 ;FP to ATA5CII 

IFP = $D9AA ; integer to FP 

F5UB = $DA68 ;subtraction 

FA0O = $DA66 ; addition 

FMUL = $DADB ;MUltipl ication 

FDIU = $DB28 ;diuision 

FLD8R = $DD89 ;load FR8 

FLDIR = $DD98 ;load FRl 

FST8R = SDDA7 ; Store FR8 

FM8VE = $DDB6 ;HOVe FR8 to FRl 

EXP18 = SDDCC ;FR8 = 18»»FRe 

LOGie = $DED1 ;coMHon log, FR8 

ZFR8 = 5DA44 ;zerD FR8 

;Set starting address 

»= $5888 



CLD 
START 

LDX 
LDA 
5TA 
LDA 
J5R 
J5R 
J5R 
LDX 
LDV 
J5R 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDX 
LDA 
STA 
LDA 
JSR 
JSR 
JSR 
JSR 
BCS 
LDX 
LDV 
JSR 
JSR 
JSR 
LDA 
STA 
JSR 
JSR 
BCS 
JSR 
BCS 
JSR 
LDX 
LDA 
STA 
LDA 
JSR 
JSR 
JSR 
JSR 

BCS 
JSR 
JSR 
JSR 

BCS 
JSR 



; binary node! 

tt8 ;use I8CB tt8 

ttLINEl&255 ;prOMPt 

ICBAL,X ;using HRITE sub 

ttLINEl/256 ;for CIO 

WRITE ; output 

INPUT ; input PRIN, 

MAKEFP ; convert to FP 

ttPRIN&255 ;lo byte in X 

ttPRIN/256 ;hi byte in Y 

FST8R ; store FR8 in RAN 

ttl288&255 ; store dec i Hal 

FRe ; integer 1288 

111288/256 ;in FRS 

FR8+1 ;and FRB+l 

IFP ; convert to FP 

FHOUE ; transfer to FRl 

tt8 :use lOCB 08 

ttLINE2&255 ;proMpt, APR 

ICBAL,X 

ttLINE2/256 

HRITE 

INPUT ; input APR into 

MAKEFP ;FR8 

FDIU ;FR8=APR/1288 

MTHERR ;Math error? 

ttlAPR&255 ;Move result to 

ttIAPR/256 ;IAPRC6-byte FP 

FSTOR ; Storage in RAM) 

FHOVE ; transfer to FRl 

ZFRe ;set FR8=8 

ttl ; store 1 in FRe 

FR8 

IFP ; convert to FP 

FADD ;FR8=IAPR+1 

MTHERR ;Hath error? 

L0G18 ;FR8=L0GCIAPR+1) 

MTHERR ;Hath error? 

FMOUE ; transfer to FRl 

»8 ;use lOCB tt8 

ttLINE3ft255 ;prOMPt, TERN 

ICBAL,X 

ttLINE3/256 

HRITE 

INPUT ; input TERM 

MAKEFP ; convert to FP 

FMUL ;FRe=TERM» 

LDGdAPR+l} 
MTHERR ;Math error? 
FMOUE ;transfer to FRl 
ZFRe ;set FR8=8 
FSUB ;FR8=-TERMJt 

LOGCIAPR+1] 
MTHERR ;Math error? 
EXP18 ;FRe=CIAPRHH3»» 



1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1308 
1310 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1880 
1818 
1828 
1830 
1848 
1858 
1868 
1878 
1888 
1898 
1988 
1918 
1928 
1938 
1948 
1958 
1968 
1978 



BCS 
JSR 
JSR 
LDA 
STA 
JSR 
JSR 

BCS 
BCC 

MTHERR 
BCS 

GOON 

LDX 
LDV 
JSR 
JSR 
LDX 
LDV 
JSR 
LDX 
LDV 
JSR 
JSR 
BCS 
LDX 
LDY 
JSR 
JSR 



BCS 
LDX 
LDY 
JSR 
LDX 
LDA 
STA 
LDA 
JSR 
JSR 
RESTRT 
LDA 
STA 
LDA 
JSR 
JSR 
JMP 



C-TERM) 
MTHERR ;Math error? 
FMOUE ; transfer to FRl 
ZERO ;set FRO=e 
ttl ; store 1 in FRO 
FRO 

IFP ;convert to FP 
FSUB ;FR0=1-CIAPR+1J»» 

C-TERMJ 
MTHERR ;Math error? 
GOON ;no, keep going 

BADMTH ;2-step branch 

ttDEN0M«255 ;MOve result 
ttDEN8M/'256 ;tO DENOM for 
FSTOR ;iWHent or tvo 
ZFR8 ;set FR8=8 

ttIAPR&255 ;load lAPR into 
ttIAPR/256 ;FR8 using X- 
FLD8R ;and Y-registers 
ttPRIN&255 ;load PRIN into 
ttPRIN/256 ;FR1 using X- 
FLDIR ;and Y-registers 
FMUL ;FRe=IAPR«PRIN 

MTHERR ;Hath error? 
ttDEN0M&255 ; DENOM into 
ttDENOM/256 ;FR1 as usual 

FLDIR ~~ 

FDIU 



;FR1=DEN0M 
;FRO=IAPR«PRIN/' 

tl-CIAPR*lJ»Hf 

f-TERMJJ 
;nath error? 
; store answer 



MTHERR 

ttPAYS255 ; Store answer in 

ttPAY/256 ;in PAY 

FSTOR 

tte ;use locB tte 

ttLINE4&255 ; "MONTHLY 

ICBAL,X {"PAYMENT IS:" 

ttLINE4/256 

HRITE 

OUTPUT ;show payMent 

ttLINE5&255 ;show proHpt 
ICBAL,X ;to go on 
ttLINE5/256 
HRITE 

INPUT ;get any input 
START ;do it all again 



;routine to handle FP Math errors 

BADMTH 

LDX ttO ;use lOCB ttO 

LDA ttERMSGl&255 ;show Hessage 

STA ICBAL,X ;on screen 

LDA ttERMSGl/256 

JSR HRITE 

CLC 

BCC RESTRT J Start all over 

; subroutine to output the answer 
; first convert FP nuMber in FRO 
;to ATASCII string in LBUFF 



OUTPUT 
JSR 
JSR 
STY 
LDY 

LOOPl 

CPY 
BEQ 
INY 
LDA 
CMP 



FASC 

ADDEOL ;add EOL to end 
LENGTH ;Y=bytes in LBUFF 
tt255 ;scan LBUFF to 

find a decimal 

LENGTH ;at end of LBUFF? 
SHOHIT ; yes, print answer 

;no,keep going 
CINBUFF],Y ;get next byte 
ttDECIMAL ; dec i Mai point? 
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1988 
1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2368 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 



BNE 
INY 
INY 

L00P2 
INY 
CPY 
BEQ 
LDA 
5TA 

BNE 
5H8HIT 
LDX 
LDA 
5TA 
LDA 
HRITE 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
RT5 



LOOPl ;no, go on 

;yes, skip next 2 
; bytes to keep 2 
decinal places 

;keep going 
ttLENGTH ;at end of LBUFF? 
SHOHIT ;yes, print answer 
ttBLANK ;no, replace byte 
CINBUFF),Y ;in LBUFF With 

a blank 
L00P2 ;go on 

tt8 ;use I8CB ue 
INBUFF ;tell CI8 where 
ICBAL.X ;to find the 
INBUFF+1 ; answer string 

ICBAH,X ;output routine 

nPUTREC ; using ci8 

ICCeM,X ;PUTREC function 

tt4e ;Max output line 

ICBLL,X ; length = 48 
tt8 

ICBLH,X 

CIOU ;go do it 



subroutine to find last 
character in LBUFF Chas bit 7 
set), clear bit 7, and add a 
carriage return to the 
following byte so we can print 
the line using CI8 



ADDEOL 
LDV 

L08P3 
INY 
LDA 
BPL 
AND 
STA 
INY 
LDA 
STA 
RTS 



tt255 ; Start at byte 8 

; point to next 
CINBUFF),Y ;byte, get it 
LD0P3 ;if >e, go on 
ttl27 ;if <8, keep the 

(INBUFF), Y ; lowest 7 bits 
;go one More byte 
ttEOL ;put a carriage 
CINBUFF),Y ; return there 
;all done 



; subroutine to input ATASCII 
;string into LBUFF and convert 
;it to floating point in FR8 



INPUT 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
RTS 



tte ;use I8CB tl8 

ttGETREC ; input a record 

ICC8I1,X 

ttLBUFF&255 ;rec will go 

ICBAL,X ;into buffer at 

ttLBUFF/256 ; address LBUFF 

ICBAH,X 

tt48 ;Max length of 

ICBLL,X ; input buffer is 



tt8 

ICBLH,X 

CIOV 



;48 bytes 

;go do it 
;all done 



; subroutine to convert data in 
; input buffer LBUFF to FP nuMber 
; in FR8 

HAKEFP 

LDA ttLBUFF&255 ;load addr Of 
STA INBUFF ; LBUFF into 
LDA ttLBUFF/'256 ; INBUFF ClO) 
STA INBUFF+1 ;and INBUFF+1 

LDA lt8 ;offset into this 



2758 
2768 
2778 
2788 
2798 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2975 
2988 
2998 
3888 
3818 
3828 
3838 
3848 
3845 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3138 
3148 



STA Cix ; buffer is zero 

JSR AFP ; convert nuirtier 
; in LBUFF to FP 

; nuMber in FR8 

BCS AFPERR ;conversion err? 

RTS ;all done 

;AFP conversion error 

AFPERR 

LDX tt8 ;use lOCB tt8 

LDA ttERHSG2&255 ;show Nessage 

STA ICBAL.X ;on screen 

LDA ttERMSG2/256 

JSR HRITE 

JSR INPUT :get another 
CLC ; input record 
BCC HAKEFP ;and try again 

;Text lines to be printed 

LINEl 

.BYTE 125, "Enter the " 

.BYTE "initial " 

.BYTE "principal :",EOL 
LINE2 

.BYTE "Enter the APR:",EeL 
LINE3 

.BYTE "Enter the terM:",EOL 
LINE4 

.BYTE "Monthly PayMent ",EeL 

.BYTE "is:",EOL 
LINE5 

.BYTE "Press " 

.BYTE 218,197,212,213,218,286 

.BYTE " to go on",EOL 
ERMSGl 

.BYTE "A HATHENATICAL ERROR " 

.BYTE "HAS OCCURRED. ",EOL 
ERMSG2 

.BYTE "CAN'T CONVERT TO FP; " 

.BYTE "PLEASE TRY AGAIN", EOL 
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SUN 
1 


MON 

2 


TUE 

3 


WED 

4 


THU 

5 


FRI 

6 


SAT 

7 


8 


9 


10 


11 


12 


^7l¥E 


15 


16 


17 


€ale] 


^raar 


22 


23 


24 


« JH^tmifT' 


29 


30 


31 


^i 


^■^ ^^ 


b^^ ^Ht^^ 



















by David Plotkin 



When issue 35 of ANALOG Computing (October 
1985] arrived, it w?as with much dehght that I cre- 
ated the AUTORUN.SYS file for G:, the graphics driv- 
er. If you ovra a printer and missed this astoundingly 
useful utility, go punch it in right now. It'll be worth- 
while. . .and you'll need it for this program. 

By the way, although not mentioned in the arti- 
cle, G: also works with Action! To get an exact list- 
ing of your Action! program, use SHIFT-CTRL-W and 
answer the prompt with G:. The graphics driver 
doesn't seem to interfere with Action! programs. 

The Calendar Printer is a BASIC program, which 
will print a calendar of any month specified. Now, 
that may not seem earth-shaking to you. However, 
it will print any graphics 8, graphics 7.5, or "Micro- 
Illustrator" screen above the actual calendar, giving 
quite a nice effect. And it will even handle Micro- 
Illustrator screens in their compacted format; you 
don't need to "uncompact" them. 

To use the Calendar Printer, you must boot up with 
a disk containing the AUTORUN.SYS file created by 



G: . I keep my Calendar Printer on the same disk with 
this AUTORUN.SYS file, so there's no problem. 

While a printer driver could have been added to 
Calendar Printer so it wouldn't be dependent on G: , 
this would have added considerably to the length of 
the program — which is really quite short. 

After booting up and running the program, you 
will be instructed to insert your picture program into 
disk 1 and press RETURN, giving you a directory. 
The name of the file which contains the picture will 
be requested. The D: is not required, although it won't 
hurt to add it. You must use D2: if you want to re- 
trieve your file from drive number 2. 

You'll be asked whether the picture is in Micro- 
Painter (uncompressed) or Microlllustrator (com- 
pressed) format. If in Microlllustrator, the picture 
will be loaded (and automatically uncompacted), and 
printing will begin ... be sure your printer's ready! 

If the picture is in MicroPainter format, then you'll 
be asked if it's in graphics 8 or 7.5. The Calendar 
doesn't really care, but different screen colors are 
used, depending on the choice, to make it easier to 
see the picture on-screen while it's being printed. 
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Calendar Printer cominued 



After the picture's been dumped to the printer, the 
month and year for which the calendar is to be gener- 
ated will be requested. Use one or two digits for the 
month, and make sure to use aiJ four digits for the 
year if it has four (just typing 86 instead of 1986 will 
generate the calendar for the appropriate month in the 
year 86 A.D. — not particularly useful). The calendar 
for the requested month will be dumped to the printer 
on the same page as the picture. 

Program explanation. 

Lines 40-50 print the disk directory. 

Lines 60-70 request the name of the file for the 
picture. 

Lines 80-140 request the type of picture and 
set graphics 8 mode. 

Line 150 sets up ANTIC mode E (graphics 7.5] 
if the picture is in either MicroIUustrator or 
MicroPainter format. 

Lines 160-200 choose the appropriate colors 
and load either a MicroPainter picture (346] or 
MicroIUustrator picture (350). 

Line 210 dumps the picture to the printer, us- 
ing G:. 

Lines 220-400 request the month and year, 
then set up the calendar. The conversion of X- 
and Y-coordinates to ZX and ZY, and equating 
of the various strings to ZA$ is so that the subrou- 
tine at Line 930 can be used. This subroutine 
plots what would normally be graphics onto 
a graphics 8 screen. Although the G: graphics 
driver is capable of doing a graphics screen 
dump, the graphics 8 dump is far more versa- 
tile, with a multitude of heights and widths, so 
that the picture and calendar together fill the 
page very nicely. 

Line 410 dumps the calendar to the printer. 

Lines 430-460 form the error trap routine. 

Lines 480-920 will set up and dimension the 
strings. LOD$ is the CIO call to load a standard 
(MicroPainter) file to the screen. MA$ sets up 
an ANTIC Mode E screen (graphics 7.5). MAIN$ 
is the uncompacting routine for MicroIUustra- 
tor files. PRINTS is the routine to plot graphics 
characters on the graphics 8 screen. The rest 
of the strings are used to set up the calendar 
graphics. 

Lines 930-940 call PRINT$ to plot on the 
graphics 8 screen. 

Now you're ready to print out a monthly calendar 
for whatever point in time you wish. It can be a great 
help in getting organized, fl 



David Plotkin, with his Master's degree in Chem- 
ical Engineering, is a Project Engineer for Chevron 
U.S.A. He purchased his Atari in 1980 and is interest- 
ed in programming and gome design, as weJJ as word 
processing. 



The two-letter checksum code preceding the 
line numbers here is not a part of the BASIC 
program. For further information, see the BA- 
SIC Editor, page 21. 



Listing 1. 
BASIC listing. 

HX le G05UB 48e:REH INITIALIZE STRINGS 

MG 2e REM GET DIRECTORY 

LR 36 GRAPHICS 

KO 4e CLOSE ttl:? "IfrPOKE 7ie,e:P0KE 709, 

48:? "INSERT DISK DRIVE Wl, PRESS RETU 

RN":INPUT ji:OPEN ttl,6,0,"D:«.K" 
IN 50 ? "IflTRAP 68:F0R N=8 TO 63:INPUT tt 

1, FILES : POSITION 2+19» C f N/ZJ =INT CN/2J > 

,INTtN/'2}:? FILE$;:NEXT N 
FW 66 POP : CLOSE tH:? :? "ENTER FILENAHE" 

;: INPUT FILES 
TD 70 IF FILES II, 2J<>"D:" AND FILESa,3J< 

>"Dl:" AND FILES II, 3J<>"D2:" THEN JS=F 

ILES:FILESI1,ZJ="D:":FILESI31=JS 
NF 86 TRAP 80:? CHRS 1125) : POSITION 2,10:? 

"IS THIS PICTURE FILE " 
AB 96 POSITION 2,11:? "Ql MICROPAINTER TYP 

E lUNCONPRESSED) OR"; 
JL 160 POSITION 2,12:? "QJMICROILLUSTRATO 

R ICOHPRESSEDJ";: INPUT PICTYPE 
CB 110 IF PICTYPE=2 THEN GOTO 140 
YO 120 TRAP 120:P0SITI0N 2,14:? "IS THE P 

ICTURE" 
UK 130 POSITION 2,15:? "D>GRAPHICS 8 OR": 

POSITION 2,16:? "QlGRAPHICS 7.5";:INPU 

T GRMODE:IF GRM0DE>2 THEN 130 
MT 140 GRAPHICS 8+16: IF IPICTYPE=1 AND GR 

M0DE=1) THEN GOTO 160 
HP 150 N=USRIADRtnAS}):REM ANTIC E 
NX 160 TRAP 430:CL0SE ttl:0PEN ttl, 4,0, FILE 

S : SLOC=PEEK 188) ♦PEEK 189) »256 
OM 170 IF PICTYPEzl AND GRM0DE=1 THEN POK 

E 7ie,15:P0KE 709,0 
SU 180 IF PICTYPE=1 AND GRH0DE=2 THEN POK 

E 708,5e:P0KE 709,10e:P0KE 7ie,12:P0KE 
712,0 
RJ 190 IF PICTYPE=1 THEN X=USRIADRtLOD$) , 

SL0C,7680) : CLOSE ttl 
OR 260 IF PICTYPE=2 THEN X=USRIADR{MAINS) 

): CLOSE ttl: REM LOAD MICILLUSTRATOR 
AH 210 XIO 64, ttl, 3, 8, "G3:" 
SL 220 GRAPHICS 8 
FP 230 TRAP 230: POSITION 3,5!? "INPUT HON 

THIXX)"; : INPUT N:POSITION 3,6:? "INPUT 
YEAR{XXXX)";:INPUT Y:D=1 
AL 240 IF H>12 OR N<1 OR Y<0 THEN 238 
RY 258 IF M<3 THEN M=Mtl2:Y=Y-l 
YB 268 N=2«M+INTI8.6«IM+l))+Y*INTIY/4)-IN 

TIY/108)+IHTIY/488)*3 
AL 270 N=INTIIN/7-INTIN/7))»7+8.85):Q=N:G 

RAPHICS 8«16 
TF 288 POKE 752,1 :ZX=2:ZYr0:ZAS=DS:G0SUB 

930:ZY=l:ZAS=T0PS:G0SUB 938 
IS 298 FOR X=l TO 5: FOR N=l TO 2:ZAS=UIDS 

:ZY=I1+N+IX-1)*3):G0SUB 930:NEXT N 
ZZ 388 ZY=ZYtl:ZAS=MIDS:GOSUB 930:NEXT X 
RU 310 FOR N=l TO 2:ZAS=UIDS:ZY=I164N) :G0 

SUB 938: NEXT N 
RH 320 ZAS=BOTS:ZY=19:GOSUB 930 
DG 330 IF M>12 THEN I1=M-12:Y=Y*1 
PC 340 ZX=16:ZY=Z2:ZAS=MS||»3-2,M»3):ZASC 

4,4)=" ":ZA$I5)=STR$IY):G0SUB 938 
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COMPUTER PALACE WE know atari! 

^■^^^"^" ^5— HL-^P"^" "^■^■■^■■^■^B-— - CALL us AT (503)683-5361 FOR INFORMATION 



Help Calc ST 



ONLY 
.95 



FEATURES for VIP PROFES- 
SIONAL users only: 

• 2-key macro ability for com 
mon function; sucti as saving 
and printing. 

• Several templates use special 
macros to ease the use of 
graphing and copying func- 
tions- 

VIP PROFESSIONAL is a 

trademarl< of 

VIP TECHNOLOGIES 



TEMPLATES INCLUDED: 

• CHECKING ACCOUNT REGISTER 

• DEPRECIATION SCHEDULE 

• LOAN AMORTIZATION SCHEDULE 

• RENTING vs BUYING A HOUSE 

• PERSONAL FINANCE STATEMENT 

• SAVINGS RATE COMPARISON 

• IRA WITHDRAWAL SCHEDULE 

• NAME AND ADDRESS DIRECTORY 

• HOME INVENTORY 

• INVESTMENT PORTFOLIO 

« INVESTMENT COMPARISONS 



dMKmWS 




HELPMATE ST 



ONLY 
139.95 



• FourfunctionlOkeycalculator * Telephone/Name Index also 
for use with mouse or ten key with telephone dialer, 

• Appointment Calendar with 90 • Set alarm functions for any day 
year variable span. in the year. 

In the future you'll be able to use your computer to organize your 
desk without having the clutter of the Calculator. Telephone / Name 
Index, Appointment Calender, Alarm Clock, all over your desk. The 
future is here! With Helpmate ST you can use your mouse to organize 
your desk top, leaving extra room for more Important tasks. All those 
desk accessories are hidden away until you need them. Use the pull 
down menus with many ST programs or Dy themselves. 



The' City 



Only $34.90 



This is a role-playing/adventure game that surpasses any you have 
ever played before. Alternate Reality incorporates the ultimate in 3D 
graphics with original music that weaves ttirough the game to 
establish the illusion, an Alternate Reality. The whole adventure 
begins when you captured by aliens and transported to another 
planet. The sun rises and sets, rain talis, and secret doors lead you 
Into unexpected perils and delights. Improve yourself physically, 
mentally, morally, financially to reach your ultimate goal: Either 
return to Earth or seek revenge on your abductors. 




ST CALC 



ONLY 
149.95 



One of fhe most versatile data-base 
programs available. 

800, XL, XE 39.95 



Featuros Includes: 

• Lighting fast retrieval 

• Fast Sorts on any field 

• Supports up to 4 drives 

• Single or double density 

• Store about 1100 records 
per disk side in double 
density 

• On-screen prompts 

• Help-screens 

• State abbreviation table 



• Redefinable fields 

• Print labels 1, 2, or 3-up 

• View records on screen 

• Search on any field (Fast 
sort on name field - 1 sec. 
to find a name out of 1000) 

• Much more! 



• No commands to memorize 

• GEM implemented windows, 
menus and mouse control. 

• Fully meets home and small 
business needs 



> On-line help facilit) 

' Uses less memory than other 
spreadsheets which means 
more room for spreadsheet 
templates 



ST CALC is a fully Implemented GEM based spreadsheet program lor 
home and small business use. If you are looking for a powerful, easy- 
to-use spreadsheet to do any calculation from balancing your check 
book to 'What if estimates on Cost/profit analysis, this is it. Why buy 
a program that costs 3 times as much and is not as easy-to-use. ST 
Calc has all the functions you need to get results, at an affordable 
jrice. 



UltiipallE 

Quest of the Avatar 

Only $49.90 



INCLUDED WITH PACKAGE: 

• 16 limes larger than Ultima III • 1 (Metal) Ankh. cloth map, 

• 2 disks lull, 4 sides reference card. 

• Book of Magic and History of 
Britannia 

The long-awaited Ultima III sequel Is finally herel Ultima IV is the 

latest in a series of epic fantasy role-playing adventure. You are in 
quest to become the perfect mortal by becoming enlightened in the 
eight virtues. Valor, Honor, Justice, Humility. Sacrifice, Spirituality, 
and Honesty Of course there are still many Monsters which must be 
fought, but your main goal is to become an Avatar. This game will 
take a lot of reading from — The History ol Brittania and The BkK oi 
Magic Spells — included with the Ultima IV. before you are ready to 
make the most exciting journey of your mortal life. 



SPECIALS 



DONKEY KONG 

PACNIAN/QIX 
METEOR STORM 

DIGGER BONK 

VISICALC 

GORF 

INV. TOPRG. 3 

LETTER WIZARD . 

SANDS EGYPT 

POOL 400 

XL BOSS 

10 PRECISION DISKS 

MUSIC MAJOR 

MINER 2049ER 



"YONLY 7.95 Eaciy 



9.95C 
14.95 C 
4.95 D 
7.95 D 
9,95 D 
3.95 C 
7.95 D 
29.95 
14.95 D 
14.95 
49.50 H 
9.95 
7.95 D 
5.95 



No Oocumlntatlon 
Tapes Only 



FANCY FONTS 

MATHS FOR FUN 

SPACE GAMES 

INSTEDIT 

BRAIN BOGGLERT 

MINI WORD PROC 

MUSIC MAJOR 

DIGGERBONK 

DATA BASE DIALER 

GUESS WHO'S COMING 

DINNER 

MARATHON 

BOB'S BUSINESS 

PROTO'S GAME 

GRADE BOOK 

FONETONE 

MEMORY MAP 

DISPLAY LISTS 



Ov^^ 




#1 DISPLAY LISTS 
#2 SCROLLING 
#3 PAGE FLIPPING 
#4 BASICS OF ANIMATION 
#5 PLAYER MISSILE GRAPHICS 
#6 SOUND & MUSIC 
#7 DISK UTILITIES 
#8 CHARACTER GRAPHICS 
#9 GTIA, GRAPHICS 9-11 
#10 SOUND EFFECTS 
#11 MEMORY MAP TUTORIAL 
#12S.A.M. TUTORIAL 
[RICKY TUTORIALS #1-#6J24.95 
TRICKY TUTORIALS #7-12 $24.95 

FOR 800XL 
NEWELL 

256K RAM 
ONLY $69.50 

NOW UPGRADE THE 800XL TO A 
POWERFUL QUARTER MEG 
SOME INSTALLATION RE- 
QUIRED. 




The best machine language book 
available for the Atari 800. XL, 
XE 



OUR LIBRARY ^ 
o\sv^ SPECIALS!!! ^/% 

$7.95 EA. $7.95 EA. $7.95 EA. 

BEST OF ACE »1 



GAMES DISK #1 
GAMES DISK #2 
GAMES DISK #3 
GAMES DISK M 
DEMOS DISK #1 
DEMOS DISK #2 
DEMOS DISK #3 
UTILITIES*! 
UriLiriES#2 
UTILITIES#3 
ACTION DISKJI 
ACTION DISK*? 
ACTION DISK #3 
lDUC DISK*1 
EDUC DISK*? 
EDUC DISK #3 



EDUC DISK*4 

EDUC DISK#'j 

EDUC DISK #6 

EDUC DISK*? 

EDUC DISK #8 

EDUC DISK*? 

EDUC DISK*10 



$5.95 each 

WIZ OF WOR C 
DELUXE INVADERS C 
GORF (Not for XL) C 
MINER 2049ER C 



BEST OF ACE *2 
BEST OF ACE #3 
BEST OF ACE #4 
BEST OF ACE *'j 
BEST OF ACE #6 
BEST OF ACE «7 
BEST OF ACE *8 
BEST OF ACE *9 
BEST OF ACE *10 
BEST OF ACE *11 
BEST OF ACE *12 
BEST OF ACE #13 
BEST OF ACE »14 




PROTECT YOUR INVESTMENT 

DELUXE 

DUST 

COVERS 

Custom fitted, attractive leather brown color: 

• ATARI NEW 130/65XE & 520/1040ST, 
400,800,600/800/1200XL,410. 810, 1050, 1025, 
1027, CX85 

• ST, EPSON, GEMINI, PROWRITER printers 

• ST, INDUS, RANA, PERCOM, TRAK, disk drives 

Additional covers 
ordered at same time 

ONLY $8.95 EACH ONLY $7.95 EACH 




ONLY 
9.95 

DISK NOTCHER 

HARDWARE 

LEGEND 808 199.00 

PANASONIC 1091 299.95 

PANASONIC 1092 399.50 

OKIMATE10 179.50 

EPSON LX-80 249.95 

1050 DISK DRIVE 149,95 

INDUS GT 249.95 

lOMEG.H.D.DRIVE(XL) 829.95 
SWIVEL BASE STAND . 29.95 
OAK MONITOR STAND 39.95 

XM301 MODEM 44.90 

MPP1000E MODEM . 59.95 
UCALL POCKET MODEM 129.95 
MPP1 150 PRINTER INTF. 59.95 
16K RAM (800 only) 17.95 

ST GAMES 

JOUST 24,50 

SUNDOG 33.90 

ULTIMA II 49,50 

BRATACCUS 39.50 

HACKER 39.95 

BORROWED TIME 44.90 

TRANSYLVANIA 34.95 

MUDPIES 26.90 

WINNIETHEPOOH 39.50 

BACKGAMMON 31.50 

WISHBRINGER 34.90 

PERRY MASON 39.50 

TIME BANDITS 44.90 



''ST PROGRAMS^ 


VIP PROFESSIONAL 


136.50 


HELP CALC ST 


24.95 


ST CALC 


49.95 


OSS PASCAL 


67.50 


H&D FORTH 


44.90 


PHILON BASIC 


69.90 


HABAC 


59.90 


CP/M EMULATOR. 


39.90 


THE FINAL WD 


109.50 


REGENT SPELL 


39.50 


DEGAS 


34.90 


EASY DRAW 


129.50 


DB MASTER 


39 90 


H&D BASE 


79.90 


ZOOMRACKS 


64.90 


ST TALK 


17.95 


PC INTERCOM 


97.50 


ST BOOKS 




STMACH.LANG 


19.95 


ST INTERNALS 


19.95 


ST GUIDE 


16.95 


PROG. THE 68000 


22.95 


ST APPLICATIONS 


5.00 


ST LOGO 


17,95 


BASIC TO C 


16,95 


COMMON C TUNC. .. 


17.95 



ADV. C TECH. 
C PROGRAMMING 




Only 29.95 

Beautifully finistied stand to 
hold your STnncnitor, 2 disk 
drives, a modem, etc . . . 



■COMPUTER 
MIACE^ 

OPEN M-F. 9-6 Sat 10-4 (Pacific Time) ll 

2160 W Itlfi Avenue Eugene. Oregon 97402 




USE YOUR CREDIT CARD i CALL 

Toll Free 1-800-452-8013 
• ORDERS ONLY, PLEASE • 

JJ There's never a penalty lor using your credit card! 
For Information, Call (503) 683-5361 
Prices subject to change without notice. 



SHIPPING INFO: Minimum $2 90 Ground $4 75 Air Actual 
Cost depends on *eignt Call (503) 683-5361 lor information 
WAHRANTY INFO: Everything that «e sell is warrantieil by 
the manufacturer II any ^em purchased from us fails to per- 
form properly when you receive it call us at (503) 683-5361 
so that we can assist you No returned merchandise accepted 
without authorization Defective software will be replaced 
with another copy of the same program ottierwise no soft- 
ware IS returnat3le 

. 2 Day Air Stiipping AVAILABLE • 



CIRCLE #156 ON READER SERVICE CARD 






M Calendar Printer corutnued 



KX 350 DV=VALfDYSfNK2-l,HN2}):IF H=2 THEN 
IF CY/4=INTfY/4} AND Y/lOeOiNT fY/lOO 

)} OR Y/400=INTfV/4ee} THEN DYrDY^l 
DL 360 IF Q=0 THEN 0=7 
01 370 Q=3*Ca-l>«5:X=0:Y=3:l>=l 
EY 380 ZX=X:ZY=Y:ZA$=STR$(0):GOSUB 930:IF 

D=DY THEN 410 
MZ 390 D=D+1:X=X*5:IF X>33 THEN X=3:Y=Y*3 
PN 400 GOTO 380 
AY 410 XIO 64,ttl,3,0,"G3:" 
OD 420 GOTO 30 
EG 430 GRAPHICS 0: POSITION 3,10:? "CAN'T 

FIND THIS FILE!!!"; CLOSE ftl 
JL 440 POSITION 3,11:? "PRESS RETURN TO C 

ONTINUE":POKE 764.255 
LM 450 IF PEEKC764)<>2S5 THEN 20 
PC 460 GOTO 450 
OH 470 END 
AL 480 GRAPHICS 0:P0KE 710,0:? "InitialiZ 

ing. . ." 
OH 490 DIM L0DSf28),JSC18},FILE$fl8I,ZA$( 

40), PRINTS C167) 
HH 500 DIH nAIN$f342),PIC$C15),HA$C55} 
VH 510 DIM DAY$f21}.B0T$(48},T0P$(40},MID 

$ C40) , UID$ C40) , D9 C4e) , M$ 140} . DYS 124) 
DJ 520 FOR X=l TO 28:READ A:LOD$CX)=CHR$f 

A) :NEXT X 
ME 530 DATA 104,169,7,141,82,3,104,141,85 

,3,104,141,84,3,104,141,89,3,104,141,8 

8,3,162,16.32,86,228,96 
BU 540 FOR X=i TO 55:READ A:MA$ tX)=CHRSCA 

) : NEXT X 
XH 550 DATA 104,173,48,2,133,0,173,49,2,1 

33,1,160,199,177,0,170,41,15,201,15,20 

8,4,202,138 
UY 560 DATA 145,0,136,192,255,208,238,165 

,88,24,105,1,133,0,165,89,105,30,133,1 

,160,3,177,0,153,196,2,136,16,248,96 
CV 570 FOR A=1S36 TO 1S56:READ B:POKE A,B 

:NEXT a 
HG 580 DATA 162,16,169,1,157,72,3,169,0,1 

57,73,3,32,86,228,48,1,96,104,104,96 
BL 590 FOR X=l TO 342: READ A:MAIN$CX)=CHR 

$fA):NEXT X 
VY 600 DATA 104,162,16,169,7,157,66,3,169 

,232,157,68,3,169,0,157,69,3,169,1,157 

,72,3,169,0 
lU 610 DATA 157,73,3,169,0,133,224,32,0,6 

.165,224,201,7,240,13,201,13,240,16,20 

1,26,240,60,230 
QH 620 DATA 224,24,144,234,165,232,133,23 

4,24,144,244,165,232,141,196,2,230,224 

,32,0,6,165,232,141,197 
SY 630 DATA 2,230,224,32,0,6,165.232,141, 

198,2,230,224,32,0,6,165,232,141,199,2 

,230,224,32,0 
EL 640 DATA 6,165,232,141,200,2,24,144,19 

6,169,0,133,236,133,230,165,88,133,224 

,133,228,165,89,133,225 
EK 650 DATA 133,229,32,0,6,192,136,240,94 

,169,0,133,227,165,232,41,128,133,235, 

165,232,41,127,133,226 
OD 660 DATA 208,14,32,0,6,165,232,133,227 

,32,0,6,165,232,133,226,198,226,165,23 

5,208,28,32,0,6 
QZ 670 DATA 165,232,133,233,24,144,47,198 

,226,169,255,197,226,208,245,198,227,1 

69,255,197,227,208,237,240,183 
VI 680 DATA 32,0,6,165,232.133,233,24,144 

,19.198,226,169,255,197,226,208,238,19 

8,227.169.255,197,227,208 
JI 690 DATA 230,240,155.96.169,2,197,234, 

240,82,240,201,165,233,160,0,145,224,2 

4,169,80,101,224,133,224 
TO 780 DATA 169,0,101,225,133,225.230,230 

,169,96,197,230,208.47.169,1,197,236,2 

08,24,24,169,1,101,228 
NH 710 DATA 133,228,133,224.169.0.133,236 

,133,230,101,229,133,229,133,225,24,14 

4.17.230,236,24,169,40,101 
TS 720 DATA 228,133,224,169,0,133,230,101 

,229,133,225,165,235,240,176,208,149,1 

65,233,160,0,145,224,24.169 



HZ 730 DATA 1,101,224,133,224,169,0,101,2 
25,133,225,165,235,240,151,208,229 

TM 740 BOT$="' ' ' ' ' ' 

I I" 



AH 750 MIDS="H 



+ 



+ 



+ 



+ 



Kl 760 dS=" sun Hon tue wed thu fri 

sat " 
PG 770 T0P$="| 1 I 1 I I 

— I I " 

lU 780 UID$="| I I I I I 

I ]'■ 
ST 790 DAYi="SATSUNHONTUEHEDTHUFRI" 
HV 800 MS="JANFEBHARAPRHAVJUNJULAUGSEP0CT 

NOUDEC" 
HX 810 DVS="312831303130313130313e31" 
NA 820 FOR 1=1 TO 167:READ A:LET PRINT$tI 

)=CHR$CA):NEXT I 
UZ 830 DATA 104,201,4,240,9,170,240.5,104 

,104,202,208,251,96,104,133,215,104 
VJ 840 DATA 133,214,104,104,168,104,133,2 

17,104,133,216,104,104,240,236,133,212 

.24 
UE 850 DATA 165,214,101,88,133,214,165.89 

,101,215,133,215,152,240,15,165,214,10 

5 
QP 860 DATA 64,133,214,165,215,105,1,133, 

215.136,208,241,132,221.160,0,132,220 
GG 870 DATA 177,216,160,0,170,16,1,136,13 

2,213,138,41,96,208,4,169,84,16 
QO 880 DATA 14,201,32,208,4,169,0,16,6,20 

1,64. 208 , 2 , 169 , 32 , 133 , 218 , 138 
FH 890 DATA 41,31,5,218,133,218,169,0,162 

.3,6,218,42.202.208,250.109,244 
SC 900 DATA 2,133,219,164,221,177,218,69, 

213,164,220,145,214,200,132,220,196,21 

2 
JK 910 DATA 208.182,24,165,214,105,40,133 

,214.144,2,230,215,230,221,169,8,197,2 

21.208.159,96,207,96 
ZJ 926 RETURN 
UU 930 AAA=USRCADRCPRINT$),ZX,Zy.ADRCZA$) 

.LEN(ZA$)) 
ZN 940 RETURN 



Presenting the 

»flCEflD A 

^ Cartridge atari 

NOW! Have 80 beautiful columns for your 
programs! SPEEDSCRIPTSOfortficoming.. 
and more! Great on TV & IVIonitors! For all 
400/600/800/1 200/1 30 Reg/XL/XEs with mm. 
of 48K, SEE YOUR LOCAL DELAER or send 
$49.95 (Mich. Res. add 4% tax) - $2.50 
postage or call for a C.O.D. Please specify 
model. 30 day money back guarantee! For 
more information call (517) 394-2412. 
Quantity Discounts Available. 

TNT COMPUTING 

P.O. Box 443 
Holt. Mich. 48842 

Amiable Computer Enhancements'" 
Atari Corp '" 
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130XE PACKAGE 

39995 

^0 M0 ^0 COMPLETE 
130 XE Computer, 1050 Disk 
Drive, 1027 Letter Quality 
Printer, Atari Writer Plus. 




65 XE PACKAGE 

COMPLETE 

65 XE Computer, 1050 Disk 
Drive, 1027 Letter Quality 
Printer, Atari Write Plus. 



520 Computer with 
Modulator, Mouse, Logo, 
Basic, 1st Word and 
Neochrome 

Sampler CALL 

130XE 

Computer 1 29.95 

65XE 

Computer 99.95 

800XL 

Computer 69.95 

I DISK DRIVES i 

Atari 1050 

Disk Drive 1 49.95 

SS/DD 

Atari SF 354 360K 

Disk Drive CALL 

SS/DD 

Atari SF 314 720K 

Disk Drive CALL 

DS/DD 

Indus GT 199.95 

SS/DD 



1 MODEMS i 

MPP Supra 

1000E 69.95 

XM 301 CALL 

Volksmodem 

12 199.95 

Volksmodem Cable 
520ST to Modem 1 2.95 
Volksmodem Cable 
toC-64orC-128 ..12.95 



Not responsible lor typographical 

errors. We reserve the right to 

limit quantities. 



Power Type, Daisy 
Wheel 279.95 

Gemini 

10X 179.95 

Atari 1027 

Printer 1 39.95 

I MONITORS I 

Atari SC1224 12" RGB 
Color Monitor . . . 335.95 
Atari SM124 

12" Monitor 175.95 

Commodore 1802 
13" Color Composite 
Monitor 179.95 

13" Color Composite 

Monitor 139.95 

Thomson 14" RGB, Color, 
Composite Monochrome 

Monitor CALL 

Thomson 12" 
Monochrome, Green 
Screen with 

Speakers 79.95 

12" Amber Goldstar 
Monitor 69.95 

I DISKETTES | 

Nashau 

5y4", SS/DD 8.95 

Nashau 

S'A", DS/DD 12.95 

Sony 

3'/2", SS/DD 27.95 

Sony 

3%", DS/DD 35.95 



Paper 

2700 Sheets 39.95 

Paper 

1000 Sheets 17.95 

Includes Shipping 

Nibble Notch 7.95 

Flip/File 10 4.95 

Flip/File 60 1 4.95 

Pro 5000 

Joystick 11.95 

Surge 

Protector 1 9.95 



PRINTER 
INTERFACES 



Ape Face 49.95 

U-Print 64.95 



PRINTER 
RIBBONS 



SG10&SG10C 

Black 2.95 

Red 4.95 

Blue 4.95 

Green 4.95 

I DUST COVERS j 

For All Models 
Call For Price 

And AvailabUty 
Scotch 5V," Head 
Cleaning Kit 7.95 

1 SOFTWARE I 

Software Titles Too 

Numerous To List 

Piease CALL 

For Information 

and Prices 



TO 

ORDER 

CALL 



1 -800-722-4002 



6 DAYS A WEEK 10 AM to 8 PM E.S.T. 




CUSTOMER SERVICE & 
NEW YORK ORDERS: 



Ca// 51 6-488-21 58 



MAIL ORDERS TO: WORLD TRADE, EXECUTIVE OFFICES 
2075 JERICHO TURNPIKE, NEW HYDE PARK, NEW YORK, 11040 



All COO'S above '400 require 15% deposit. Check, Money Order, MC or VISA accepted I Call lot shipping and handling Information / NYS residents add 
applicable sales tax / Prices and availability are subject to change without notice / Air factory fresh merchandise vilth manufacturer's warranty. Dealers 
welcome. Call lor recent price reductions and new rebate information. Order phones are open Mon.-Sat. tOAHI-BPM E.S.T., Sun. 12PM-5PIVI. Customer Service: 
Mon.-Fri. 10AM-3PM. Returns must have return authorization. ■$ min. shipping charge. 
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PAGE# 



124 Abacus Software 46ST 

119 Abby's Discount 36 

134 Academy Software 72ST 

154 Advan Language Designs 106 

148 Allen Macroware 92 

117 Alpha Systems 30 

155 American TV 113 

159 Applied Technologies, Inc 124 

102 Astra Systems 2 

— Batteries Included 24 

104 B&C Computervisions 7, 41 

128 Bayview Software 58ST 

138 Beckemeyer Development Tools . 72ST 

149 Big Ben Games 95 

157 Big L 123 

145 Black Patch 86 

141 CAL COM 78ST, 91 

110 Coast to Coast 17 

137 Commnet Systems 72ST 

111 Computability 18 

118 Computer Creations 34 

160 ComputerEyes 124 

105 Computer Games Plus 7 

127 Computer Mail Order 54ST, 108 

139 Computer Outlet 78ST 

156 Computer Palace 121 

— COVOX Inc 15 

103 Duplicating Technologies 5 

108 Eclipse Software 9 

123 Electronic One 44 

130 Haba 64ST, 65ST 

120 Happy Computer 40 

101 Hippopotamus Software IPC 




READER SERVICE # 



ADVERTISER 



PAGE* 



133 InSoft, Corp 75ST 

— Jesse Jones 101 

152 Kyan Software 104 

121 Lyco Computers 42 

147 Magna Systems 91 

126 Martin Consulting 51ST 

125 Megamax 51ST 

161 MichTron OBC 

109 Microtyme 16 

142 Miller Computer Products 79ST 

136 Mind Mine Computer Center 74ST 

122 Newell Industries 44 

112 New Horizons Software 19 

113 Orion Software 23 

144 Protecto 82, 83, 84, 85 

135 Quack Computer Co 74ST 

129 Regent Software 58ST 

132 Rocky Mountain Atari Service 68ST 

— Senecom 44 

140 Serious Software 78ST 

131 Shanner 66ST, 80ST 

116 Softview Concepts 28 

115 Software Discounters 26 

158 Sourceflow Media 124 

106 Strategic Simulations 8 

114 Southern Software 23 

107 TNT Computing 122 

— VIP Technologies 52ST 

151 Wedgwood Rental 100 

146 White House Computer 88 

143 Xanth 79ST 

153 Xentech 106 

150 XLent Software 96 



This index is an additionol service. White every effort is made to provide a conipfefe and accurate listing, tl^e pubiisher cannot be responsibJe for inadvertent errors. 



SOFTWARE CLUB 

GAMES, UTILITIES, TUTORIALS...and more... 

$ 7.95 Introductory diskette 
29.95 Three months 
49.95 Six months 
89.95 One year 

All programs (including 
documentation) reside on diskette. 

Back issues starting with January, 
1986 can be obtained for $7. 95 each. 



TUTORIAL DISKS ALSO AVAILABLE: 

Basic $9.95 

Atari graphics 9.95 

C programming language .. 9.95 
Pascal 9.95 



Send check or money order to: 

SOURCEFLOW MEDIA 

225 CONGRESS 

SUITE 132 

AUSTIN, TEXAS 78701 

SUBMISSIONS NOW BEING ACCEPTED 



camp-u-TEmp^ 

ATARI BOO/XL, 130XE, 8. COMMODORE 64 



'U- 



^£mpi 
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TEMPERATURE MONITORING AND 
DATA ACQUISITION SYSTEM 



FEATURES include disptay of 8 or 16 temperature 
channels, range of -15°F to +180°F at approx. 1 
degree resolution, electronic interface plugs directly 
into the joystick port, weather-protected sensors, 
menu-driven software capable of (1) labeling sensor 
locations (2) selecting high or low alarm set points 
(3) hardcopy printouts (4) selection of data sample 
time intervals for all channels (15 seconds to 4 hours) 
(5) recording temperature data to disk (optional). 

VERSION 1.0 8 Chanr>el $99.95 

Includes 2 sensors, software, electronic interface, 
and hard copy 

VERSION 2.0 8 Channel $119.95 

Includes 2 sensors, software, electronic interface, 
hard copy, and data storage to and from disk 

VERSION 3.0 16 Channel $179.95 

Includes 4 sensors, software, electronic interface, 
hard copy, and data storage to and from disk 
Additional sensors (Each) $5.75 



Applied Technologies, Inc. 



Lyndon Way, Kittery, ME 03904 
M/C- VISA accepted (207)439-5074 

U.S. Dept. of Energy Award for Energy Innovation. 
Dealer & Distributor Inquiries Invited 
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ComputerEyes™ 




(201) 889-8416 
BBS after 7:00 PM 
(201) 469-0049 



• Make Custom T-SHIRTS 

• Take Computer Portraits 

• Interface to ANY Standard Video 
Source (ex. VCR, Video Camera, etc.) 



Computer Eyes" for 

ATARI 800, 8dOXL, 130XE, 520ST. . $109.00 
Software interface to: 

Graphic Mode 9 12.00 

Panasonic/lkegami Commercial 

grade B/W video camera 159.00 

Special Hook-up cabling with 

instructions 19.00 

UNDERWARE ribbons to make 

custom heat iron-on transfers 

for T-Shirts, scarves, etc 12.00 

Color Pens 12.00 



Also Available for APPLE and C-64 



HAL Systems, PO Box 293, 
Scotch Plains, N.J. 07076 

• • • DEALER INQUIRIES INVITEO * • • 
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ANALOG COMPUTING 



Back Issues 




All back 
issues 
are priced 
at $4.00 each. 



ISSUE 23 • Fire Bug • Minicomp • Dark Horse • Climber • P/M Creator/Animator 

ISSUE 24 • Circuit Database • Cassette Compressor • XL-DOS • Bopctron! 
• Race in Space • Unicheck 



Miner Jack • BASIC Tutorial Part 1 



Send your check or money order to 
ANALOG Computing Back Issues, 

RQ Box 625, Holmes, PA 19043. 
MasterCard and VISA orders, 
call 1-800-345-8112 
(in Pennsylvania, 1-800-662-2444). 




Back issues on 5V4-inch disk 

$12.95 each, plus $3.00 shipping and handling. 
Issues 35 and up are available in this format. 



ISSUE 25 • Weather Forecaster • Androton 

• Adding BASIC Function Keys 

ISSUE 26 • BASIC Tutorial Part 2» Robot Raid • Graphics Overlay • Popcorn 

• Magic Palette • PuLse in Action! 

ISSUE 27 • English Error Messages in BASIC • instant Renumber • MicroCheck 
Part 1 • Adventure at Vandenberg • Screenmaker 

ISSUE 28 • MicroCheck Part 2 • TwoGun • Cascade • Monthly Mortgage Calculator 

• Demon Birds • MicroDOS XL 

ISSUE 29 • RAMCHECK • Revive Dragonlord • XL Expansion Connector • Cheep Talk 

ISSUE 30 • Loan Shark • Z-Plotter • BASIC Burger • ANALOG TCS Guide 

• Boulder Bombers 

ISSUE 31 • Unicheck • R.OT.O. • Lunar Patrol • ATASCII Animation • Lazer Type 

• Atari Clock • Personal Planning Calendar 

ISSUE 32 • Supereversion • DOS III to DOS 2 conversion • Color the Shapes 

• Home-made Translator • Cosmic Defender • 520ST 

ISSUE 33 • An Intro to MIDI • Note Master • Syntron • BASIC Bug Exterminator 

• Assemble Some Sound • C.COM • Mince (ST) 

ISSUE 34 • Dragon's Breath • Multiple Choice Vocabulary Quiz • Elevator Repairman 

• Assemble Some Sound Part 2 

ISSUE 35 (also on disk) • Hide and Seek • Printers Revisited • Bonk • Turtle 1020 • G: 

ISSUE 36 (also on disk) • Sneak Attack • Maze War • Nightshade • Solid Gold 
Input Routine • Rafferty Run 

ISSUE 37 (also on disk) • Speedski • Index to ANALOG Computing (15-36) • Master 
Disk Directory • Halley Hunter • Bank Switching for the 130XE 

ISSUE 38 (also on disk) • Color Alignment Generator • Incoming! • DLI Maker • Air 
Hockey • ST Color Palette 

ISSUE 39 (also on disk) • Super Pong • Unicheck (updated) • C-Manship Part 1 

• Program Helper • Adventurous Programming Part 1 • ST Software Guide 

ISSUE 40 (also on disk) • Clash of Kings • Micro-Mail • Koala Slideshow Program 

• Adventurous Programming Part 2 • Mouser 

ISSUE 41 (also on disk) • Treasures of Barboz • DSD Character Generator II Part 1 

• ST-Log • Paperweight • Adventurous Programming Part 3 

Issues 12. 14. 15, 16. 17. 18. 19. 20. 21 and 22 are also still available. 



THE #1 MAGAZINE FOR ATARI' COMPUTER OWNERS 



^■^IHCOMPUTINGI^^^ 

RQ BOX 23 WORCESTER, MASSACHUSETTS 01603 



NEW for the ST . . . from MkhTwn 



UTILITIES made for speedy efficiency y and simplicity. 



KISSED Debugger by Keith Enge 

Announcing the ultimate programmer's tool: this complete debugger 
features full screen editing, tracing and execution options, "timed" break- 
points, independent screens, dynamic relocation, assembler-disassembler, 
decimal/hex conversions, over 40 commands, a help key and more! 
Forthe Atari ST $39.95 

DOS SHELL UtiUly by Timothy Purves 

DOS Shell makes your ST mimic the MS-DOS command structure. All 
the familiar MS-DOS commands are available from GEM. Add the extra 
power of "global" file commands, multiple-file manipulation and batch 
files to your Atari. 
For the Atari ST $39.95 

CORNERMAN utility by J. Weaver Jr. 

Clear off your cluttered desk! This single utility gives you an electronic 
notepad, calculator, address/phone book, phone dialer, ASCII chart, 
clock and even a "15 squares" game. Install Cornerman as a desk 
top accessory and it's available almost everywhere! 
Forthe Atari ST $49.95 

ECHO Environment Controller by Timothy Purves 

This software/hardware combination lets your ST control electric 
appliances. ECHO regulates thermostats, dims incandescent lights, and 
has a timer program that even lakes weekends and holidays into account. 
It's perfect for security and energy conservation. ECHO uses 
inexpensive X-10 remote plug-in modules, so it's completely wireless! 
Forthe Atari ST $39.95 



DJ^.T. Transfer Utility by Timothy Purves 

Transfer files between your Atari ST and IBM computers. With this pro- 
gram and your own modem or direct-connect cable, you can convert all 
your important ASCII data files quickly and reliably, without retyping. 
Forthe Atari ST $49.95 

THE ANIMATOR Graphics Utility by Keith Enge 

Now you can animate pictures made with Degas or Neo. Add flair to 

business presentations or make your own movies for fun! 

For the Atari ST (Degas and Neo not included) $39.95 

PERSONAL MONEY MANAGER by Jonathan Kring 

This easy-to-use database keeps track of your personal finances from 

yearly budget to checking records in up to 999 accounts. And it supplies 

a variety of well-organized reports. 

For the Atari ST $49.95 

Last month's features: 
MichTron UTILITIES $59.95 

Business Tools 200+ Business Forms, Letters, Contracts $39.95 



M-DISK 
MI-TERM 
SOFT SPOOL 
CALENDAR 
MI-DUPE II 
BBS 



RAM-Disk Emulator 
Communications Program 
Printer Utility 

Desktop Appointment Calendar 
Fast, Easy File Duplication 
Complete Bulletin Board System 



$39.95 
$49.95 
$39.95 
$29.95 
$39.95 
$49.95 



GAMES designed to be fast y colorfuly and exciting. 



TIME BANDIT Arcade Game by Dunlevy & Lafnear 

Explore medieval dungeons, westora frontiers and future worlds in one 
game! Each of 18 worids has over 15 levels and is a game in itself! This 
fast-action arcade game even has a built-in adventure: pilot Starship 
Excalibur as you try to rescue its vanished crew. Great sound, beautiful 
graphics and hundreds of screens: the conquest of Time awaits! 
Forthe Atari ST with color monitor 339.95 

MAJOR MOTION Arcade Game by MacKenzie & Sorenson 

Race down the highway in this exciting spy-chase arcade game. Enemy 
drivers, deadly helicopters and gaping potholes threaten to destroy you. 
Defend yourself with smoke screens, machine guns, oil slicks and 
missiles, or escape down branching roads and treacherous rivers. 
Forthe Atari ST $39.95 




SOLITAIRE Strategy Game by J. Weaver Jr. 

Five classic card games: play Solitaire, Klondike, or Poker Squares by 
yourself, or test your strategy against the computer's in Cribbage. And if 
friends want to play, it's four against the house in Blackjack! The rules 
are accurate and the graphics amazingly realistic. Take a refreshing 
break from arcade games without missing any of the fun and excitement. 
For the Atari ST with color monitor S39.95 



GOLD R UNNER a rcade Game by Dave Dies 

As Commander of the Lode-Runners, you must infiltrate underground 
mines in search of gold and adventure. Use wit and skill to escape with 
the loot. Over 50 screens with narrow paths, steep ladders, dangling 
ropes and hidden traps will challenge your rcOexcs and test your logic. 
For the Atari ST with color monitor $39.95 



Last month's features: 

MUDPIES Arcade Game (requires color monitor) $39.95 

FLIP SIDE Strategy Game $39.95 

LANDS OF HA VOC Arcade Game (requires joystick) $19.95 



All reasonably priced, with more coming every day. Ask for our latest catalog! 

Dealer inquincs welcome • Visa and Mastercard accepted • Add $3.00 shipping and handling to each order 




576 S. Telegraph, Poyruc, MI 48053 
Orders and Information (313) 334-5700 
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